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CHAPTER  1 


INTRODUCTION 


Background 

The  most  difficult  and  time  consuming  task  in  any 
flying  squadron  is  scheduling.  This  job  is  performed  by  one 
or  more  crewmembers  as  an  additional  duty.  It  requires 
matching  the  training  requirements  of  between  40  and  several 
hundred  individuals,  depending  on  the  type  unit,  with  a 
schedule  of  available  training  assets.  These  consist  of 
aircraft,  flying  routes,  training  areas,  ground  scoring 
sites,  and  numerous  ground  training  events. 

A  typical  fighter  squadron  today  might  support 
training  of  40  pilots.  Often  less  than  half  are  available 
to  fill  the  16  to  24  sorties  flown  each  day.  In  addition, 
some  of  the  pilots  are  required  to  fill  "duties"  such  as 
Runway  Supervisory  Unit  (RSU)  officer.  Squadron  Duty 
Officer,  or  Supervisor  of  Flying  (SOF).  Alert  duty, 
meetings  and  appointments  must  also  fit  into  the  schedule. 

Many  of  the  squadron  pilots  have  duty  positions 
outside  the  squadron  building  or  have  "additional  duties" 
that  take  up  most  of  their  time.  A  typical  1-  or  2-hour 
flight  itself  takes  up  five  to  six  hours  when  briefing  and 
debriefing  times  are  included.  Flying  is  considered  a 
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relatively  hazardous  job;  safety  considerations  dictate  a 
limit  to  the  length  of  duty  in  a  day  which  includes  flying 
and  a  minimum  amount  of  "crew  rest"  prior  to  filling  flying 
duties  on  a  subsequent  day.  Most  of  the  training  missions 
and  events  have  currency  or  recency  restrictions  associated 
with  them  for  much  the  same  reasons.  Under  some  conditions 
a  pilot  is  restricted  to  a  syllabus  or  specific  order  of 
missions  with  subsequent  flights  depending  on  successful 
completion  of  a  previous  training  sortie. 

These  many  factors  and  constraints  make  it  difficult 
to  devise  a  schedule  that  fits,  much  less  one  that  is  opti¬ 
mized.  Schedulers  often  work  extremely  long  hours  without 
much  job  satisfaction.  Operations  Officers  are  generally 
responsible  for  the  scheduler's  product  and  spend  even  long¬ 
er  hours  reviewing  and  revising  what  the  scheduler  has  done. 

Problem  Statement 

Scheduling  in  a  flying  unit  is  highly  complex,  sub¬ 
ject  to  error,  and  makes  less  than  optimum  use  of  training 
resources  resulting  in  discouraged  schedulers  and  reduced 
combat  readiness. 


Hypothesis  Statement 

It  is  hypothesized  that  it  is  possible  to  aid  the 
scheduler  by  modeling  the  scheduling  function  on  a  microcom¬ 
puter  and  by  helping  to  create  alternative  schedules.  Such 
a  program  model  must  work  on  the  equipment  now  being  deliv- 


ered  to  Air  Force  fighter  squadrons:  a  Cromemco  System  2 
using  an  8-bit  2-80A  microprocessor  with  the  CDOS  operating 
system,  two  380  KByte  floppy  diskette  drives,  a  5  MByte  hard 
disk,  a  Zenith  Z-19  terminal,  a  dot  matrix  or  letter  quality 
printer,  a  modem,  and  the  Microsoft  BASIC  programming  lan¬ 
guage,  version  5*.  The  program  algorithm  must  consider  all 
relevant  factors  or  it  is  unlikely  to  be  used.  The  system 
must  be  flexible  to  allow  for  major  and  minor  changes  to 
requirements,  availability,  and  objectives. 


Purpose 

The  purpose  of  this  research  is  to  develop  an  algo¬ 
rithm  to  model  the  squadron  scheduling  function  in  suffi¬ 
cient  detail  to  make  the  product  useful.  The  major  diffi¬ 
culty  is  that  the  problem  is  complex,  the  sources  of  data 
diverse,  and  the  guidance  subject  to  many  levels  of  inter¬ 
pretation  and  emphasis.  The  goal  is  to  define  the  logical 
structure  of  the  scheduling  function  and  translate  it  into 
code  usable  by  the  available  hardware.  Initially,  the  pro¬ 
gram  is  to  be  specifically  designed  for  the  F-15  squadrons 


*This  description  was  obtained  from  Maj  Dave  Smith, 
Wing  Training  Officer  of  the  1st  Tactical  Fighter  Wing, 
Langely  AFB,  VA.  His  wing  is  one  of  the  first  to  receive 
this  hardware  and  will  help  to  evaluate  the  programs  result¬ 
ing  from  this  project.  The  terms  "KByte”  and  "MByte”  refer 
to  1024  and  1,048,576  bytes  of  mass  storage  capacity  respec¬ 
tively.  A  byte  is  one  character  (eight  bits)  of  data  on 
this  system;  each  byte  can  have  256  different  values  (2s). 
These  values  can  be  interpreted  differently  in  different 
context  which  allows  flexibility  to  represent  nearly  any- 
ig. 


of  Tactical  Air  Command  (TAC)  in  the  continental  United 
States  (CONUS)  and  United  States  Air  Forces  in  Europe 
(USAFE).  The  basic  ideas  may  be  expanded  to  a  more  general 
form  applicable  to  other  fighter  units. 

The  F-15  unit  provides  a  good  starting  point  for 
several  reasons.  The  squadron  consists  only  of  pilots  (sin¬ 
gle-seat  aircraft)  which  reduces  the  level  of  model  complex¬ 
ity.  The  mission  includes  one  major  type  of  flying  (Air 
Superiority)  rather  than  several.  Perhaps  most  important 
the  author's  recent  experience  is  with  F-15  units  which 
makes  their  problems  more  familiar. 


Organization 

Chapter  2  contains  a  brief  review  of  some  other 
systems  applying  computers  to  the  problem  of  scheduling. 
Chapter  3  is  a  description  of  the  model  developed  in  this 
project.  Chapter  4  is  a  brief  guide  to  its  application  in 
the  typical  fighter  squadron.  Chapter  5  concludes  with  a 
discussion  of  a  system  envisioned  at  the  start  of  this 
project  and  recommends  areas  for  further  research.  Annex  A 
is  review  of  the  myriad  requirements  limiting  the  sched¬ 
uler's  options  such  as  Air  Force  flying  regulations  and 
manuals  and  regulations  governing  scheduling.  Annex  B  cov¬ 
ers  the  storage  formats  available  for  the  data  required  to 
make  scheduling  decisions.  Annex  C  includes  the  listings  of 
the  programs  developed  during  this  project. 


CHAPTER  2 


REVIEW  OP  LITERATURE 

Information  Search 

A  review  of  the  literature  on  computer  assisted 
scheduling  indicates  that  anyone  currently  working  on  the 
subject  has  declined  to  write  about  it.  Very  limited  refer¬ 
ences  were  found  in  the  Defense  Technical  Information  Center 
database,  the  library  card  catalogs,  or  in  the  indexes  to 
various  periodicals  including  the  papers  written  at  Maxwell 
AFB*.  None  of  these  indicated  specific  work  on  using  micro¬ 
computers  to  aid  the  scheduler. 

One  of  the  few  references  found  includes  a  very 
general  paper  written  by  Major  Richard  Strunk  submitted  as  a 
reserch  project  to  the  Air  command  and  Staff  College  in 
April,  1977.  Some  material  published  on  an  uncompleted  pro¬ 
ject  for  the  Strategic  Air  Command  as  a  part  of  United 
States  Air  Force  Project  Rand  represents  in-depth  study  of 
the  subject  in  a  different  context.  A  thesis  written  by  an 
Air  Force  officer  attending  CGSC  in  1980  covers  a  different 
aspect  of  the  subject.  Further  digging  has  uncovered  some 
other  work  done  by  industrious  individuals  which  has  been 

^Location  of  the  Air  War  College  and  the  Air  Command 
and  Staff  College. 
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described  in  conversation  with  the  authors  but  which  has  not 
been  formally  documented  for  publication. 

Computerizing  TAC  Scheduling 

As  noted  above,  the  research  project  prepared  by 
Major  Strunk' is  somewhat  general^.  He  stated  his  objective 
was  to  develop  and  evaluate  a  Computer  Assisted  Scheduling 
Program  in  order  to  answer  the  question,  "Can  Tactical  Air 
Command  (TAC)  Operations  be  computer  scheduled?"  He  de¬ 
scribed  some  factors  that  go  into  determining  how  this  might 
be  done  including  a  very  elaborate  flow  chart  for  a  series 
of  scheduling  programs.  The  flowchart  is  22  pages  long  and 
quite  detailed.  In  his  concluding  chapter.  Major  Strunk 
admitted  that  he  was  not  a  computer  programmer;  his  evalua¬ 
tion  of  the  ability  to  have  a  computer  schedule  TAC  opera¬ 
tions  was  to  state  that  his  flowchart  showed  it  could  be 
done.  A  portion  of  the  flowcharted  program  was  coded  in 
BASIC,  but  he  observed  that  it  was  far  from  satisfactory  in 
that  form. 


A  Rand  Stud^ 


Dr.  Morton  B.  Berman  of  the  Rand  Corporation  spent 


two  years  reserching  and  writing  a  series  of  reports  on  a 
very  ambitious  project  for  the  Strategic  Air  Command  (SAC)3. 


2 

Richard  R.  Strunk,  Can  TAC  Operations  be  Computer 
Scheduled?  (Maxwell  APB,  AL»  ACSC,  1977). 

^Morton  B.  Berman,  The  DOSS  Prototype.  (Santa  Moni¬ 
ca,  CA:  Rand  Corporation,  #WN-94d4-PR,  1976,  and 


A  great  deal  of  this  time  was  spent  observing  flying  and 
maintenance  activities  and  procedures  at  several  SAC  bases 
to  gather  data  on  the  problem  of  resource  allocations.  The 
last  paper  published  (in  1976)  was  originally  intended  only 
as  an  interim  progress  report  on  development  of  a  Decision 
Oriented  Scheduling  System  (DOSS)  Prototype. 

According  to  the  preliminary  conclusions  and  exper¬ 
iences  of  those  using  the  prototype  system,  it  had  great 
promise.  Dr.  Berman  saw  some  significant  problems  ahead  but 
the  project  was  shelved  due  to  a  lack  of  funds  before  he 
could  complete  his  work.  He  stated  that  his  opinion  was  use 
of  a  large  mainframe  computer  (all  that  was  avilable  for  his 
project)  was  somewhat  cumbersome  for  this  type  work.  He 
also  voiced  the  opinion  that  the  problem  of  scheduling  in 
Tactical  Air  Command  type  fighter  units  was  much  more  diffi¬ 
cult  and  involved  that  in  Strategic  Air  Command,  where  his 
work  was  done4. 

This  difference  is  one  of  scope  and  scale;  Dr.  Ber¬ 
man's  prototype  system  involved  all  aspects  of  both  Opera¬ 
tions  and  Maintenance  scheduling.  This  is  a  more  manageable 
problem  in  SAC  due  to  the  far  fewer  flights  per  aircraft  per 
day  as  compared  to  fighter  operations. 


Scheduling  Aircrews  and  Aircraft:  Problems  of  Resource  Allo¬ 
cation  in  the  Strategic  Air  Command.  (Santa  Monica:  Rand 
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Application  of  Linear  Programming 

Major  Carlton  L.  Pannell  submitted  a  thesis  to  CGSC 
entitled  A  LINEAR  PROGRAMMING  APPLICATION  TO  AIRCREW  SCHED¬ 
ULING^.  The  primary  thrust  of  his  application  was  to  opti¬ 
mize  the  distribution  of  training  assets  based  on  scores 
achieved  on  the  bombing  range  and  a  supervisor's  subjective 
evaluation.  A  section  of  the  thesis  was  devoted  to  the 
specific  problem  of  building  and  deconflicting  a  weekly 
schedule,  but  not  in  the  detail  attempted  by  this  project. 

A  System  Now  In  Use 

The  Colorado  Air  National  Guard  flying  A-7D  aircraft 
(a  type  of  fighter)  out  of  Buckley  Field  has  developed  a 
system  that  has  been  working  for  about  four  years6.  The 
National  Guard  has  unique  problems  due  to  the  part  time 
nature  of  many  of  their  personnel  and  their  consequent 
severely  constrained  availability.  These  same  factors  make 
it  more  difficult  for  them  to  throw  "manhours"  at  a  job 
(such  as  scheduling)  and  live  with  it,  so  Major  Ron  Germano 
was  given  the  funds  to  acquire  the  services  of  a  time-shared 
mainframe  computer  to  help  with  scheduling  and  maintaining 
records  on  the  pilots  of  his  unit. 

^Carlton  L.  Pannell,  Major,  USAF.  A  LINEAR  PRO- 
G  RAM  MING  APPLICATION  TO  AIRCREW  SCHEDULING.  (Ft.  Leaven¬ 
worth,  KSl  CGSC,  1980). 

^Telephone  conversation  with  Maj  Ron  Germano,  162d 
TFS,  Buckley  Field,  CO,  12  October  1982. 
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He  used  an  established  database  files  structure 
(supplied  as  part  of  the  software  available  with  the  time- 
shared  system)  to  store  a  large  volume  of  information.  The 
accessing  methods  available  with  this  system  allowed  him  to 
search  for  and  link  data  in  different  data  files.  Major 
Germano's  program  applies  arbitrary  values  or  weights  to 
currency  and  recency  data  and  current  training  accomplish¬ 
ments  data  on  each  pilot  and  lists  the  pilot's  relative 
priority  for  a  particular  type  of  training. 

The  currency  and  recency  items  are  based  on  guidance 
from  the  various  regulations  and  manuals  covering  the  train¬ 
ing  required  for  each  category  of  pilot.  The  relative 
weights  come  from  priorities  established  by  the  Operations 
Officer  and  Commander.  Using  the  priority  lists  thus  devel¬ 
oped,  the  program  can  then  fill  a  "shell"  or  listing  of  the 
available  training  missions  for  a  given  week. 

This  system  is  currently  in  use,  although  it  is 
constantly  being  updated.  The  product  is  currently  used  as 
a  starting  point  then  "hand  massaged"  to  accomodate  other 
constraints.  He  characterized  the  accessing  language  pro¬ 
vided  for  use  in  manipulating  the  data  stored  by  the  time- 
shared  system  as  "like  Pascal"^.  With  the  capabilities  of 


^Pascal  is  a  high-level  structured  language  devel¬ 
oped  by  Dr.  Niklaus  Wirth  of  Institut  fuer  Informatik,  ETH 
Zurich,  Switzerland.  See  Kathleen  Jensen  and  Niklaus  Wirth, 
PASCAL:  User  Manual  and  Report?  2d  ed,  (New  York:  Springer- 
Verlag,  19^4,  corrected  printing  1978),  and  Grogono,  Peter. 
Programming  in  Pascal:  Revised  Edition,  (Reading,  MA: 
Addison-Wesley,  1986,  1978).  Structured  programming  is  also 
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this  language.  Major  Germano  has  been  able  to  devlop  a 
program  which  stores  the  relevant  data  to  make  scheduling 
decision,  to  assign  some  factors  or  values  which  reflect  the 
guidance  of  his  bosses  and  higher  headquarters  on  what  is 
acceptable,  and  to  produce  a  beginning  schedule  from  it. 


Summary 

The  approaches  of  the  systems  introduced  above  vary 
from  that  of  this  project  in  many  ways.  With  the  possible 
exception  of  the  system  being  employed  by  the  National  Guard 
unit,  little  attempt  was  made  to  faithfully  model  the  ac¬ 
tions  of  the  human  scheduler.  Deconf liction  is  the  single 
biggest  problem  for  the  human  scheduler;  it  is  very  diffi¬ 
cult  to  remember  every  detail  about  the  availability  and 
conflicts  of  40  individual  pilots.  This  appears  to  be  the 
greatest  potential  contribution  of  this  project. 


covered  by  Brian  W.  Kernighan,  and  P.  J.  Plauger.  The  Ele¬ 
ments  of  Programming  Stylet  2d  ed  (New  York:  McGraw-Hill, 
1978,  197  *).  The  significance  of  structured  programming  is 
its  emphasis  on  "top-down"  or  big  to  little  structure  and 
the  resulting  under standability  of  the  code.  This  concept 
is  one  that  will  be  applied  in  this  project. 


CHAPTER  3 


MODEL  DESCRIPTION 


Requirement 

The  requirement  of  this  project  is  to  develop  an 
algorithm  modeling  the  Tactical  Fighter  Squadron  scheduler. 
This  might  be  done  at  several  different  levels  of  complextiy 
or  fidelity;  it  will  be  developed  here  in  the  simple  form 
including  only  the  pure  scheduling  function  of  deconflic- 
tion. 

Annex  A  includes  specific  data  used  daily  by  the 
scheduler  and  training  officer  in  the  typical  fighter  squad¬ 
ron.  Of  this  data,  qualification,  availability,  and  curren¬ 
cy  are  the  factors  of  immediate  concern  to  the  scheduler. 
Since  this  project  is  modeling  the  scheduling  function, 
these  are  the  factors  considered. 

Qualification 

Every  scheduled  activity  includes  certain  qualifica¬ 
tion  requirements.  For  an  ACBT  mission,  for  instance,  the 
pilot  must  be  qualified  for  air  combat  training  missions, 
and  must  be  a  flight  leader  under  some  conditions.  A  pilot 
upgrading  to  flight  lead  status  would  require  an  IP  (In¬ 
structor  Pilot)  or  a  squadron  supervisor  on  his  wing.  This 
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Illustrates  that  each  pilot  has  qualification  attributes  and 
each  activity  on  the  schedule  has  qualification  require¬ 
ments. 

Availability 

Pilots  are  tasked  regularly  with  meetings,  asso¬ 
ciated  with  either  primary  or  additional  duties,  with  indi¬ 
vidual  training  needs,  and  with  such  things  as  dental  ap¬ 
pointments  and  annual  physicals.  Scheduling  coordination 
for  these  activities  is  often  made  individually  with  the 
outside  organization  involved,  either  by  the  pilot  himself 
or  by  the  squadron  scheduling  or  training  personnel.  Once  a 
pilot  is  scheduled  for  such  an  activity,  his  availability 
for  normal  daily  or  weekly  duties  and  training  missions  is 
restricted.  Each  activity  on  the  schedule  has  a  scheduled 
time  with  attendant  time  requirements  for  some  period  before 
and  after  the  scheduled  time.  Any  pilot  with  other  commit¬ 
ments  any  time  during  the  activity  period  is  not  available 
as  a  candidate  to  fill  that  activity.  Thus,  the  activity 
has  an  associated  required  availability  period  and  the  pilot 
has  an  attribute  of  available  or  not  available  during  it. 

Currency 

Currency  restrictions  arise  primarily  from  the  need 
for  regular  practice  of  flying  skills.  Inexperienced  pilots 
are  often  given  shorter  currency  periods  than  experienced 
pilots,  as  shown  in  Annex  A.  Leave,  extended  periods  of  bad 
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weather,  and  other  conflicts  make  it  common  for  a  few  pilots 
to  be  out  of  currency  at  any  given  time.  Regaining  curren¬ 
cies  such  as  landing,  ACBT,  or  low  level  intercepts  are  not 
too  difficult,  generally  requiring  a  flight  under  the  super¬ 
vision  of  an  instructor  pilot  or  a  squadron  supervisor.  One 
goal  of  scheduling  is  to  reduce  the  number  of  recurrency 
flights  to  a  minimum  to  preserve  scarce  squadron  training 
resources.  Again,  each  activity  has  associated  currency 
requirements  and  each  pilot  has  currency  attributes. 

The  Deconflict ion  Model 

At  the  most  simple  level,  the  scheduling  algorithm 
must  accomplish  “deconf liction".  This  is  the  process  of 
making  certain  no  pilot  is  scheduled  for  incompatible  activ¬ 
ities  at  the  same  time  and  that  each  pilot  is  qualified  and 
current  (or  has  the  required  supervision)  for  the  activity 
scheduled.  Further,  the  process  must  insure  that  each  ac¬ 
tivity  has  someone  assigned  to  do  it.  In  mathematical 
terms,  this  model  may  be  described  as  follows. 

Let  (S^j,  1  <*  i  <*  48,  1  <*  j  <*  7}  be  a  period  of 
time.  S^j  is  the  i^  half-hour  on  the  jth  day 
of  the  week  and  the  {S^j}  refers  to  a  single 
type  of  training.  In  particular,  let  be 

the  shell  slice  for  the  kth  activity  of  K 
possible  types  of  activities. 

Let  be  the  full  shell  for  all  1  <«  k  <■  K  type 


-lam 
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activities  to  be  scheduled. 

The  problem  is  to  assign  the  pilots  to  the  shell 
(Sijfc),  subject  to  pilot  constraints,  pilot 
availability,  and  the  requirements  of  activity 
k. 

Let  f  be  a  function  on  the  elements  of  the  shell 
*>ijk  such  that  ■  0  if  no  pilot  is  assigned 

and  ■  -l  if  a  pilot  is  assigned. 

Thus  we  want  to  minimize 

K  7  48 

k-1  j-1  i«l  3 

or,  since  the  day  of  the  week  is  irrelevant  and 
all  half-hour  periods  are  equivalent. 


K 

336 

min 

2 

2 

f(Sik! 

k-1 

i-l 

where  Silc 

is  the 

kth 

activity  to  be  scheduled 

during  the 

itl*  half-hour  period. 

This  description  of  the  model  shows  its  simplification  to 
the  most  basic  level  of  scheduling,  that  is  deconf liction 
alone.  Beyond  this  point,  guidance  from  the  Operations 
Officer  and  information  from  the  training  section  may  be 
used  to  optimize  the  training  outcome  of  the  scheduled 
activities.  For  purposes  of  this  project,  only  the  fit  of 
qualified,  available  pilots  and  their  currency  status  will 
be  considered. 


Model  Capabilities  and  Limitations 

Effective  application  of  the  program  using  this 
model  should  reduce  the  “busy  work"  and  oversights  of  the 
scheduler  tremendously.  The  price  paid  for  this  aid  is  that 
the  data  used  by  the  system  must  be  kept  up-to-date.  Quali¬ 
fication  data  changes  least  often  and  could  be  updated 
weekly.  Availability  and  currency  data  must  be  updated 
daily  if  the  information  is  to  be  of  any  use. 

The  deconf liction  model  is  based  on  the  weekly 
schedule  cycle  and  is  updated  daily  during  the  execution  of 
the  schedule.  The  program  presents  candidates  for  each 
schedule  activity  who  have  the  required  attributes  of  quali¬ 
fication  and  availability  and  shows  if  they  are  current  or 
not.  This  should  allow  the  scheduler  to  base  his  choice  on 
factors  outside  the  model  to  achieve  further  training  effec¬ 
tiveness. 

Summary 

Given  good  data  from  which  to  make  selections  and 
the  speed,  responsiveness,  and  accuracy  of  operation  of  the 
microcomputer,  the  scheduler's  job  should  become  one  of  se¬ 
lecting  the  "best"  candidate  for  an  activity  rather  than  "a" 
candidate  who  seems  to  fit. 


CHAPTER  4 


APPLICATION  OF  THE  DECONFLICTION  PROGRAM 

The  program  listing  included  at  Annex  C  is  written 
to  apply  to  a  typical  single-mission,  single-seat  fighter 
squadron.  The  concept  could  be  expanded  to  cover  broader 
applications  but  time  constraints  precluded  that  in  this 
project. 

Application  of  the  model  to  the  typical  scheduling 
operation  should  be  primarily  oriented  to  the  weekly  sched¬ 
uling  cycle.  Entry  of  the  "shell"  and  production  of  mul¬ 
tiple  weekly  data  files  and  schedule  files  should  allow  some 
progress  towards  optimization  beyond  the  deconfliction  model 
of  the  program.  This  chapter  will  discuss  use  of  the 
program. 

Starting  Out 

A  learning  period  must  be  expected  before  good 
availability  data  will  be  routinely  provided  to  the  system. 
This  will  require  a  policy  that,  after  a  certain  date  in  the 
implementation  process,  scheduling  decisions  will  be  based 
only  on  data  actually  provided  to  the  system.  Such  a  "hard 
line"  attitude  will  be  instrumental  in  getting  good  avail¬ 
ability  data  into  the  system  at  an  early  stage.  This  data 
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must  often  come  from  the  pilot  himself  because  most  availa¬ 
bility  data  generated  by  the  system  will  be  managed  intern¬ 
ally.  Thus,  the  learning  period  involves  all  squadron  per¬ 
sonnel. 

This  availability  data  is  one  part  of  the  informa¬ 
tion  stored  in  individual  pilot  data  files.  These  are 
sequential  files  in  ASCII1  character  form  so  that  they  can 
be  inspected  with  a  simple  text  editor.  A  utility  with 
prompts  for  the  information  in  the  proper  format  is  also 
provided.  These  files  are  sequential  access  files  for  com¬ 
pactness;  their  individual  nature  makes  access  time  a  minor 
consideration,  especially  with  speed  of  a  hard  disk. 

All  other  information  required  for  proper  operation 
of  the  system  should  come  from  within  the  scheduling  sec¬ 
tion.  This  includes  other  data  contained  in  the  individual 
pilot  files  such  as  name,  service  number  (SSAN),  and  other 
administrative  data,  and  qualification  and  currency  data. 
The  qualification  names  are  user  definable  and  may  be  ex¬ 
panded  to  much  larger  capacity  than  the  fifteen  slots  pro¬ 
vided.  Each  qualification  attribute  is  a  "yes"  or  "no", 
that  is,  training  or  upgrade  status  qualifications  must  be 
handled  by  a  separate  qualification  name. 

Currency  data  is  included  in  ASCII  character  form 
also,  but  is  in  Julian  date  format  including  a  year  digit. 

1See  Annex  B,  DATA  DEFINITION  AND  STORAGE,  for  more 
explanation  on  this  subject. 
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This  allows  easy  conversion  within  the  program  to  a  form 
suitable  for  comparison  with  the  schedule  activity  date. 
Since  some  currency  periods  are  within  the  normal  scheduling 
cycle,  currency  status  is  provided  to  the  scheduler  but  is 
not  used  as  a  filter  for  selecting  the  candidates  for  a 
given  activity. 

System  Operation 

Once  the  pilot  data  files  have  been  developed,  the 
scheduler  must  begin  entering  the  weekly  schedule  shell. 
This  will  include  all  activities  for  which  the  squadron  must 
provide  pilots.  Some  of  these  may  be  a  standard  set  of 
duties  (for  example,  SOF,  RSU,  Alert,  and  so  on)  that  will 
be  required  on  a  regular  or  rotating  basis.  Most  flights 
and  ground  training  events  will  have  to  be  entered  individ¬ 
ually  each  week.  All  shell  data  will  stored  in  a  single 
file  for  the  week  including  the  activity  code,  the  activity 
time  as  hours  and  minutes  of  the  day,  the  start  and  end  of 
the  activty  time  period  in  minutes  from  the  week  beginning, 
and  the  pilot  code  if  one  has  been  assigned  in  advance. 

Once  the  shell  is  complete  and  the  pilot  data  is 
available,  the  scheduler  may  make  any  number  of  attempts  at 
filling  the  schedule.  Each  iteration  will  start  with  a 
schedule  data  file  built  from  the  shell  data  and  the  pilot 
data  files.  Once  it  has  been  made,  it  may  be  copied  and  a 
sequence  number  assigned  to  distinguish  it  from  others. 

The  weekly  schedule  data  file  includes  pilot 
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qualification,  availability,  and  currency  data  in  a  compact 
matrix  form  for  quick  manipulation  by  the  program.  A  random 
access  file  format  aids  this  speed  and  ease  of  access.  Also 
included  is  the  data  from  the  shell  on  each  activity  and  a 
matrix  of  which  pilots  are  qualified  and  available. 

Building  a  trial  schedule  requires  the  scheduler  to 
select  an  activity  to  fill,  check  the  candidates  provided  by 
the  system  against  outside  priorities,  and  make  a  tentative 
selection.  After  each  selection  the  program  must  update 
that  pilot's  availability  data  and  the  pilot  availability 
data  for  any  activities  affected  by  this  selection.  A  flag 
is  provided  if  the  current  selection  results  in  the  number 
of  candidates  for  another  activity  dropping  to  zero.  This 
condition  may  be  alleviated  by  using  resources  outside  ‘.he 
squadron  or  by  "un-selecting"  that  pilot  and  making  another 
choice.  This  mechanism  provides  for  minimizing  the  schedule 
filling  function  described  in  chapter  3. 

Once  the  schedule  is  completed,  an  alternate  sched¬ 
ule  may  be  developed  or  this  one  may  be  made  firm.  The  firm 
schedule  selected  may  be  used  to  update  the  pilot  availabil¬ 
ity  data  files  so  that  a  historic  record  of  all  scheduled 
activity  is  maintained.  This  may  require  periodic  purging 
of  old  data  to  keep  file  sizes  and  access  times  acceptable. 

Daily  Update 


The  firm  schedule  will  be  selected  at  the  time 
determined  by  the  local  scheduling  cycle.  Once  firmed  up. 
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it  must  continue  to  be  updated  with  currency  information,  as 
well  as  with  any  changes  made  in  activities.  Since  all 
qualification,  currency  and  availability  data  for  the  week 
is  included  in  the  weekly  data  file,  it  must  be  specifically 
kept  up-to-date  as  pilots  accomplish  events  or  sorties  which 
change  their  status. 

If  a  selection  was  made  based  on  anticipated  events 
that  did  not  transpire,  a  check  of  currency  and  qualifica¬ 
tion  status  on  a  daily  basis  will  find  the  problem.  Since 
all  availability  data  and  currencies  are  accessed,  the  sys¬ 
tem  can  be  used  to  find  an  alternate  candidate  for  the 
activity  or  to  change  the  supervision  provided. 

Summary 

Use  of  the  system  developed  during  this  project 
should  allow  the  scheduler  to  spend  his  time  more  productiv¬ 
ely,  resulting  in  fewer  oversight  errors  and  the  opportunity 
to  optimize  other  factors  not  included  in  the  program.  This 
may  result  in  a  higher  quality  product  rather  than  just  a 
schedule  that  satisfices. 
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CHAPTER  5 


CONCLUSIONS  AND  RECOMMENDATIONS 


The  initial  goal  of  this  project  was  to  develop  a 
program  that  would  automatically  produce  a  schedule.  Sever¬ 
al  factors  made  this  goal  impossible  to  achieve,  the  biggest 
of  which  was  time.  This  chapter  will  describe  some  of  the 
thoughts  developed  towards  this  goal  so  that  others  working 
on  similar  projects  may  get  some  insight.  In  addition,  some 
suggestions  are  made  about  the  programming  language. 

The  scheduling  function  is  almost  inextricably  link¬ 
ed  with  training  in  a  typical  fighter  squadron.  The  program 
developed  in  this  project  includes  some  overlap  into  the 
area  of  training  in  keeping  track  of  currencies  and  qualifi¬ 
cations.  A  program  that  successfully  produces  a  complete 
schedule  will  need  much  more  training  type  information. 
This  data  will  include  much  of  that  described  in  Annex  A, 
the  requirements  of  TACM  51-50.  This  must  be  carefully 
integrated  into  the  real  world  system  of  official  Air  Force 
record  keeping  so  that  duplication  of  effort  is  avoided. 
This  will  require  retrieval  of  the  official  data  from  its 
storage  medium,  usually  the  base  level  main  frame  computer, 
and  operation  based  on  what  is  stored  there. 

An  alternative  is  to  store  the  training 
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accomplishment  data  on  the  microcomputer  hard  disk  and  sup¬ 
ply  the  base  level  equipment  from  there.  This  could  pose 
some  data  security  problems  and  is  not  likely  to  be 
approved . 

Updating  the  base  level  system  could  be  done  with 
the  help  of  a  communications  package  and  the  modem  over 
normal  telephone  lines.  If  two-way  data  flow  could  be 
established  with  proper  safe  guards  for  quality  checking  on 
the  data  sent  to  the  main  frame,  the  microcomputer  system 
could  have  access  to  current,  accurate  training  data. 

Given  this  access,  further  programs  could  be  devel¬ 
oped  which  would  allow  the  computation  of  the  number  of 
requirements  remaining  for  each  pilot,  in  each  category  of 
training,  and  this  data  could  be  used  to  prioritize  who 
would  be  automatically  selected  for  a  given  sortie.  The 
priority  basis  should  take  into  account  not  only  require¬ 
ments  remaining,  but  also  the  opportunities  remaining  to 
accomplish  those  requirements.  A  quotient  of  remaining 
divided  by  opportunities  would  produce  a  fractional  number 
which  would  contain  this  relative  value. 

The  priority  established  for  one  person  to  use  a 
sortie  might  have  relatively  little  to  do  with  a  different 
need  by  another  for  the  same  activity.  For  instance,  one 
pilot  might  require  an  ACBT  sortie  for  training  while  an¬ 
other  required  it  for  currency.  The  decision  on  who  needed 
it  might  be  based  on  subjective  data  or  data  not  available 


to  the  microcomputer,  but  this  could  be  simulated  by  ap¬ 
plying  a  weight  factor  to  each  persons  need.  This  weight 
factor  would  then  be  the  means  of  providing  differing  strat¬ 
egies  of  schedule  filling  for  the  program.  One  strategy 
weighting  currency  very  heavily  might  result  in  a  totally 
different  product  than  another  which  weighted  training  needs 
more  heavily. 

Another  area  for  further  research  is  the  language 
used  in  developing  this  program.  Interpreted  BASIC  is  rela¬ 
tively  slow  compared  to  some  other  languages,  and  its  struc¬ 
ture  allows  rather  poor  programming  practices.  This  has 
been  avoided  as  much  as  possible  during  this  project  but  no 
doubt  has  crept  in.  The  need  for  an  easily  understood  pro¬ 
gram  in  this  instance,  as  in  many  cases,  is  the  need  many 
users  will  find  to  change  it,  whether  slightly  or  greatly. 
Even  a  well  written  program  will  take  many  hours  of  study  to 
become  familiar  with  the  author's  pattern  or  structure.  A 
poorly  written  program  may  be  totally  undecipherable  even  to 
the  author  in  six  months  time.  Conversion  of  the  basic 
ideas  of  this  program  into  another  language  such  as  Pascal 
or  Modula  2,  a  new  language  introduced  by  Dr.  Niklaus  Wirth, 
could  prove  very  beneficial  in  the  future^-. 

The  other  possibility  for  increasing  the  speed  of 
this  program  would  be  to  compile  it  into  machine  code.  The 
producer  of  this  dialect  of  BASIC,  Microsoft  Corporation, 

^See  Annex  B  for  more  information  on  programming. 
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has  a  compiler  for  it.  However,  the  compiler  places  further 
limitations  on  the  structure  available;  the  program  included 
here  was  not  written  within  these  limitations. 

Thus,  there  are  three  recommendations:  expand  the 
project  to  include  the  training  data  needed  to  produce  a 
schedule  automatically;  write  the  code  in  a  better,  faster 
language;  or  modify  the  code  to  allow  compiling  it  for 
greater  speed. 


ANNEX  A 


TRAINING  REQUIREMENTS  AND  THE  SCHEDULING  SYSTEM 
Introduction 

Training  is  normally  considered  to  be  a  separate 
functional  area  within  the  staff  structure  of  a  fighter 
squadron,  however,  the  training  requirements  of  each  indi¬ 
vidual  are  what  drive  the  formation  of  the  schedule.  This 
annex  will  describe  the  requirements  levied  in  TAC  MANUAL 
51-501  and  the  resulting  scheduling  decisions  that  a  algo¬ 
rithm  must  model  faithfully. 

This  project  has  been  limited  to  the  goal  of  devel¬ 
oping  the  scheduling  algorithm,  but  the  data  needed  to  make 
effective  decisions  for  scheduling  will  in  many  cases  be 
identical  to  that  needed  for  planning  by  both  schedulers  and 
the  training  staff.  Some  of  this  data  must  be  stored  in 
official  Air  Force  records  such  as  Air  Force  Technical  Order 
(AFTO)  form  781,  Aerospace  Vehicle  Flight  Data  Document,  in 
Flight  Records,  and  either  TAC  Automated  Flying  Training 
Management  System  (TAFTRAMS)  or  Air  Force  Operations  Manage¬ 
ment  System  (AFORMS).  The  latter,  AFORMS,  is  to  be  a 

^ DEPARTMENT  OF  THE  AIR  FORCE,  Headquarters  Tactical 
Air  Command,  FLYING  TRAINING;  TACTICAL  FIGHTER/RECONNAIS¬ 
SANCE  AIRCREW  TRAINING.  TAC  MANUAL  51-50,  Volume  I,  26 
October  l$6l. 
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universal  training  and  flight  data  system  which  all  units 
will  eventually  use.  For  these  reasons,  the  implementation 
of  the  algorithm  devised  in  this  project  must  be  consistent 
with  the  basic  information  format  and  needs  of  these  systems 
or  the  goal  of  usefulness  will  not  be  met. 

Another  impact  of  the  training  manual  requirements 
on  the  scheduling  system  is  the  need  to  forecast  the  specif¬ 
ic  needs  of  the  unit  as  a  whole.  Although  this  is  again 
normally  a  training  staff  function,  the  scheduler  is  often 
in  the  middle  of  the  process  because  of  has  direct  use  of 
the  results. 

Graduated  Combat  Capability 

TACM  51-50^  is  based  on  the  concept  that  the  unit 
commander,  normally  the  squadron  commander,  has  the  best 
knowledge  of  the  specific  training  needs  of  his  pilots.  The 
Graduated  Combat  Capability  (GCC)  system  gives  him  the  abil¬ 
ity  to  assign  training  assets  to  achieve  various  levels  of 
capability  depending  on  the  amount  of  those  assets  and  the 
experience  and  individual  ability  of  his  people.  Volume  I 
of  the  manual  is  common  to  the  three  Tactical  Air  Force 
(TAF)  Major  Commands  (MAJCOMs),  TAC,  USAFE,  and  PACAF. 
Chapter  6  of  Volume  I  is  written  by  each  of  the  MAJCOMs  to 

^Abbreviations  for  the  manuals  in  this  chapter  will 
be*  TACM  51-50  for  reference  to  the  whole  series  of  volumes. 
Volume  I  for  that  specific  volume  exclusive  of  the  MAJCOM 
chapter,  TAC  Chapter  6  or  USAFE  Chapter  6  for  their  respec¬ 
tive  chapters,  and  Volume  VII  for  the  F-15  specific  volume. 
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reflect  the  individual  needs  of  the  theater  and  mission,  and 
applies  to  all  types  of  fighters  in  each  MAJCOMs  inventory. 
The  subsequent  volumes  of  TACM  51-50  reflect  the  training 
requirements  unique  to  the  specific  aircraft.  Volume  VII 
includes  this  information  for  the  F-15. 

The  training  of  all  aircrew  members  is  broken  down 
into  three  basic  phases  by  TACM  51-50.  IQT  is  the  Initial 
Qualification  Training  phase  and  is  normally  completed  at  an 
RTU  or  Replacement  Training  Unit.  There  are  occaisions  when 
an  operational  unit  must  “train  from  scratch",  but  they  are 
kept  to  a  minimum. 

MOT  is  the  Mission  Qualification  Training  phase  that 
leads  to  the  first  or  lowest  level  of  Mission  Ready  (MR) 
status.  MQT  is  accomplished  in  part  at  the  RTU  and  com¬ 
pleted  at  the  gaining  operational  unit.  An  aircrew  complet¬ 
ing  MQT  at  his  unit  is  qualified  at  level  A  of  the  unit 
Designed  Operational  Capability  (DOC)  and  can  effectively 
accomplish  the  units  basic  mission. 

The  final  type  training  covered  in  TACM  51-50  is  CT, 
Continuation  Training.  This  is  the  day-to-day  training 
accomplished  by  all  the  squadron  pilots  to  maintain  their 
mission  proficiency  or  to  advance  to  a  higher  level.  The 
squadron  scheduler  is  concerned  with  the  requirements  of  MQT 
and  CT  training  and  the  many  upgrade  programs  that  fall  in 
these  areas.  The  algorithm  modeling  the  scheduler  must 
allow  for  making  decisions  based  on  diverse  requirements  of 
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these  programs. 

General  Requirements 

The  flying  training  requirements  of  Volume  I  are 
specified  in  Table  3-ls 

6  penetrations  (instrument  flying) 

12  precision  approaches 
12  non-precision  approaches 

2  night  landings 

3  air-to-air  refuelings  (AAR) 

2  night  sorties  (credited  if  1  hour  or  60% 
of  the  flight  was  during  darkness) 

30  minimum  total  sorties 

These  requirements  apply  to  all  fighter  aircraft  training 
regardless  of  the  specific  type  (albeit  with  some  excep¬ 
tions)  but  do  not  address  the  training  needs  of  specific 
missions.  The  specified  training  must  be  accomplished  dur¬ 
ing  each  training  cycle;  these  are  defined  as  six-month 
periods  beginning  1  January  and  1  July.  Additional  require¬ 
ments  of  Volume  I  include  Annual  Instrument  and  Mission  or 
Tactical  Qualification  evaluation  flights  and  associated 
examinations.  Aircrew  Weapons  and  Tactics  Academics,  and 
Target  Area  Certification  or  Verification.  Rules  and  sup¬ 
porting  tables  are  provided  for  prorating  training  require¬ 
ments  of  arriving  or  departing  personnel  (who  are  available 
only  part  of  the  training  period)  or  for  other  contingen- 


Certain  reports  of  individual  and  unit  capability 
status  are  based  on  the  number  of  sorties  flown  each  month 
by  the  squadrons  pilots.  Since  the  scheduler  is  the  primary 
planner  of  sorties,  the  sustainability  of  a  given  sortie 
rate  is  within  his  purview  even  though  the  report  itself  is 
normally  prepared  by  the  training  staff.  This  reporting 
philosophy  is  specified  in  Volume  I.  Also  included  are 
various  definitions  of  types  of  training  sorties,  only  one 
of  which  can  be  accomplished  per  flight,  and  events  of  which 
several  may  be  accomplished. 

MAJCOM  Requirements 

The  final  chapter  of  Volume  I  is  written  individual¬ 
ly  by  each  of  the  TAF  MAJCOMs.  This  project  is  involved 
with  two  of  these:  TAC  Chapter  6,  TAC  AND  ARF3  AIRCREW 
TRAINING4  and  USAFE  Chapter  6,  TACTICAL  FIGHTER/RECONNAIS¬ 
SANCE  AIRCREW  TRAINING^.  These  additions  are  applicable  to 
all  types  of  fighters  but  specific  to  the  command  of  their 
assignment. 

TAC's  Chapter  6  specifies  the  type  of  training  data 

3 

ARF  is  Air  Reserve  Forces,  both  Air  National  Guard 
and  US  Air  Force  Reserve. 

Department  OF  THE  AIR  FORCE,  Headquarters  Tactical 
Air  Command,  TAC  AND  ARF  TRAINING:  FIGHTER  AND  RECONNAIS¬ 
SANCE.  TACM  51-50  Volume  I,  Chapter  6,  l5  February  1982. 

Department  of  THE  AIR  FORCE,  Headquarters  United 
States  Air  Forces  in  Europe,  Flying  Training:  TACTICAL 
FIGHTER/RECONNAISSANCE  AIRCREW  TRAINING.  USAFE  Chapter  6  to 
TACM  51-50,  Volume  I,  1  October  1982. 


that  must  be  tracked  if  the  unit  does  not  have  TAFTRAMS  or 
AFORMS  available.  This  data  is  basically  that  which  is 
needed  to  make  scheduling  decisions.  It  includes: 

Unit  sorties  required  and  accomplished 

Individual  sortie  standards 

Requirements  and  accomplishments  for 
each  assigned  GCC  level 

Totals  for  each  month  for  the  semi-annual 
training  period 

Individual  monthly  flying  time  accomplished 

Individual  required  events  accomplished 

Individual  weapon  delivery  data  on 

events  required  for  MR  qualification6 

TAC  Chapter  6  also  defines  the  types  of  ground 
training  in  three  categories:  Category  I  -  Mission  Essen¬ 
tial,  Category  II  -  General  Flying  Related,  and  Category  III 
-  Other  Training  Related  to  Aircrews.  This  training  must 
also  be  scheduled  and  affects  availability  both  during  con¬ 
duct  of  the  training  and  by  its  effect  on  crew  rest. 

Additional  training  guidance  included  in  this  docu¬ 
ment  covers  instrument  training  requirements,  the  composi¬ 
tion  of  Realistic  Training  Sorties,  Red  Flag  or  equivalent 
training.  Chemical  Warfare  Defense  (CWD)  training  (in  the 
aircraft  and  simulator),  instructor  currency , and  minimums, 
and  additional  TAC  semi-annual  requirements.  These  require¬ 
ments  consist  of: 

6TAC  Chapter  6,  p.  6-3. 
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EC  (electronic  combat)  events  12 

Instrument  sorties 

(inexperienced  pilots)  2 

Night  AAR  1 

No  HUD  (head  up  display)  approaches: 

one-half  of  Table  3-1  requirements 

Formation  Takeoffs  4 

CW  (chemical  warfare)  Exercise  1  annually7 


TAC  Chapter  6  specifies  the  following  as  goals: 


Red  Flag  participation  1  annually 

Formation  events: 

Day  Takeoff  12 

Night  Takeoff  2 

Day  Landing  3 

Departure  (wing)  6 

Approach  (wing)  6s 


Table  6-12  covers  another  subject  basic  to  design  of 
a  successful  scheduling  algorithm,  currencies.  The  follow¬ 
ing  list  is  excerpted  from  that  table  leaving  out  some  of 
the  complicating  qualifiers  that  do  not  apply  to  the  F-15 
aircraft  or  pilots. 


7 TAC  Chapter  6,  Table  6-10,  p.  6-39 
®TAC  Chapter  6,  Table  6-11,  p.  6-39 
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Accomplishment  Inexperienced  Experienced 

(Event /Sortie)  Pilot _  Pilot 


Day  Landing 

30  days 

45  days 

Night  Landing 

15 

*  30 

AAR  (Day  or  Night) 

Six 

Months 

ACBT  (Air  Combat 
Training) 

90 

90 

Formation  Events 

Takeoff 
(Day  or  Night) 

60 

90 

Day  Landing 

60 

90 

Low  Level  Flying 

60 

90 

IP  Rear  Seat  Landing 

30 

IP  Instruction  Flight 

60 

Dart 

1  8 

Months 

These  requirements  are  constraints  or  considerations 
that  must  be  taken  into  account  by  the  scheduling  algorithm 
being  developed.  These  may  be  different  than  those  imposed 
by  another  command  and  may  vary  further  depending  on  the 
specific  type  aircraft. 

USAFE  Chapter  6  has  similar  type  information  but  the 
currency  numbers  vary,  different  categories  are  defined,  and 
some  guidance  is  much  more  specific.  Paragraph  6-24  re¬ 
quires  inexperienced  pilots  to  fly  a  non-demanding  sortie  if 
they  have  not  flown  within  22  to  30  days  and  requires  the 
same  of  experienced  pilots  who  have  not  flown  ?or  31  to  45 
days.  The  experience  levels  are  defined  in  Volume  I  and  the 
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non-demanding  category  is  explained  in  paragraph  6-23  of 
USAFE  Chapter  6. 

Other  currencies  specified  in  the  USAFE  chapter 
include  regaining  landing  currency  after  varying  periods, 
night  landing,  air  refueling,  wing  formation  landings,  pre¬ 
cision  approaches,  rear  seat  landing  for  instructors,  and 
flights  while  wearing  CWD  gear.  Each  of  the  type  events  and 
sorties  required  later  in  the  chapter  are  defined  in  para¬ 
graph  6-25.  For- the  F-15,  Table  A3-1  specifies  the  training 
requirements  for  maintaining  the  various  levels  of  GCC  qual¬ 
ification.  Some  are  defined  as  guidelines  under  some  condi¬ 
tions,  but  they  are  essentially  required  for  purposes  of  the 
scheduling  algorithm. 

GCC  Level  Sorties 


Level: 

A 

B 

C 

Total  (Inex/Exp) 

40/36 

68/60 

82/70 

1  month  GCC  rate 

7/6 

.  12/10 

14/12 

3  month  GCC  rate 

20/18 

34/30 

41/35 

Weapons  Events  (Required) 

Dart 

Qual 

Gun  Tracking 

6 

12 

18 

WSEP9 

1  (sortie) 

^WSEP  is  Weapons  System  Evaluation  Program. 


GCC  Events 

Intercepts 

20/16 

26/22 

32/28 

ECCM10 

2 

4 

6 

Alert  Scramble 

2 

3 

4 

Integrated  Ms n/ Joint  Ex 

1 

2 

3 

Comm  Jam 

2 

4 

6 

ACBT  Sorties 

31/27 

43/37 

50/42 

BFM/DBFM*1  Sorties 

2 

2 

2 

Instrument/Proficiency  Sorties  2 

4 

4 

AAR 

3 

3 

3 

Captive  AIM-9 

6 

8 

10 

CWD  Sorties 

1 

1 

1 

ACMI12  Sorties 

4 

6 

8 

F-15  AIRCREW  TRAINING 

Volume  VII13  of 

the  series 

is  specific  to  the  F-15 

aircraft.  Paragraph  2-9 

lists  minimum  sorties 

and  events  to 

be  accomplished  during  MQT,  often 

a  level  of 

training  the 

scheduler  must  be  concerned  with. 

Chapter  3 

includes  the 

*0ECCM  is  Electronic  Counter  Countermeasures. 

**BFM  is  Basic  Fighter  Maneuvers,  DBFM  is  the  same 
mission  flown  with  dissimilar  aircraft. 

12ACMI  is  the  Air  Combat  Maneuvering  Instrumenta¬ 
tion,  a  realistic  training  enhancement. 

13DEPARTMENT  OF  THE  AIR  FORCE,  Headquarters  Tactical 
Air  Command,  Flying  Training:  F-15  AIRCREW  TRAINING.  TAC 
MANUAL  51-50,  Volume  VII,  26  March  1982. 


minimum  number  of  simulator  hours  required  for  each  training 
period,  among  other  items. 


Summary 

This  annex  has  shown  some  of  the  sources  and  numbers 
that  the  scheduling  algorithm  must  be  capable  of  handling. 
Of  more  significance  than  the  numbers  is  their  variation 
depending  on  the  situation.  A  given  scheduler  has  essen¬ 
tially  the  same  type  problems  as  any  other  but  the  specifics 
of  requirements  vary  widely  depending  on  location,  exper¬ 
ience  level  of  the  pilots,  weather  affecting  the  base,  and 
maintenance  capability  currently  enjoyed.  The  algorithm 
must  be  able  to  take  such  diverse  factors  into  account  and 
simulate  the  many  small  decisions  the  human  scheduler  would 
normally  make  largely  on  intuition  and  produce  a  product— 
the  schedule.  Its  success  will  lie,  if  it  is  successful,  in 
making  its  programmed  decisions  without  forgetting  the  de¬ 
tails  that  sometimes  escape  the  human  scheduler  in  his  flury 
of  work. 


ANNEX  B 


DATA  DEFINITION  AND  STORAGE 
The  previous  annex  showed  the  sources  and  types  of 
data  required  by  the  algorithm  to  make  programmed  "deci¬ 
sions".  The  significant  factors  are  the  variety  and  varia¬ 
tion  of  these  data  from  one  location  to  another.  The  user 
will  have  to  be  able  to  define  and  redefine  data  storage 
parameters  as  the  system  is  used,  both  to  initialize  it  and 
to  react  to  changes  in  guidance  or  regulations.  This  annex 
will  describe  the  way  different  data  types  may  be  assigned 
by  the  user  and  the  general  types  of  data  the  algorithm  must 
be  able  to  access  and  manipulate. 


Data 


A  microcomputer  actually  stores  only  one  representa¬ 


tion  of  data--the  byte.  A  byte  is  defined  as  eight  bits, 
each  of  which  can  have  the  value  "on”  or  "off".  The  context 
in  which  a  given  byte  is  presented  to  the  microprocessor 


determines  how  it  will  be  interpreted.  Several  general 
types  are  available  in  Microsoft  BASIC^,  including  string  or 
character,  integer,  and  single  or  double  precision  real 


variables.  Characters  are  stored  with  one  byte  used  for 


1 


Trade  Mark  of  Microsoft  Corp., 


Bellevue,  WA. 
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each  letter,  digit  of  a  number,  or  special  code.  This  code 
is  called  ASCII,  for  American  Standard  Code  for  Information 
Interchange.  Seven  bits  of  each  byte  are  used  in  this  code 
which  results  in  2^  or  128  possible  meanings.  The  eighth 
bit  may  be  left  blank  or  it  may  be  used  for  a  parity  check 
on  the  other  seven  bits.  In  some  systems  the  eighth  bit  is 
used  to  define  another  128  characters  used  for  graphics. 
Integers  are  stored  in  two  consecutive  bytes  and  may  have 
the  value  -32768  to  32767.  The  number  32767  is  2^®  ieag 
one — the  two  bytes  are  interpreted  as  a  binary  number  with 
the  most  significant,  or  sixteenth,  bit  used  as  a  "sign" 
bit.  Note  the  difference  in  representing  the  number  32767 
in  ASCII  or  as  an  integer:  ASCII  requires  five  bytes  while 
the  binary  form  requires  only  two. 

Real  numbers,  those  that  can  have  fractional  values, 
are  stored  in  either  four  or  eight  bytes  as  single  or  double 
precision  variables.  Single  precision  can  represent  numbers 
to  six  significant  figures  while  double  represents  sixteen 
significant  figures.  Since  these  numbers  are  stored  in 
binary  format,  the  fractional  portion  is  subject  to  a  very 
small  error  when  converting  to  and  from  decimal^. 

2 

This  is  not  a  problem  in  most  applications  but  must 
be  considered  if  the  result  of  a  calculation  is  based  on  the 
difference  of  two  numbers,  especially  if  the  result  is  at  or 
near  the  limit  of  the  number's  precision.  The  most  common 
example  of  this  type  difficulty  is  in  interest  calculations 
for  accounting  applications;  daily  interest  numbers  can  be 
very  small  but  are  used  in  long  iterations  which  compound  a 
very  small  error  into  a  significant  one.  Money  calculations 
are  required  to  balance  to  the  penny.  This  fact  must  be 


The  flexibility  of  these  data  types  will  allow  com¬ 
plete  and  compact  storage  of  the  data  required  by  this 
model.  Names  of  pilots,  for  instance,  will  be  stored  as  a 
string  of  characters  while  currency  dates  will  be  stored  as 
an  integer  or  binary  value.  Storing  a  date  as  letter  and 
number  characters  might  seem  insignificant  at  first  glance, 
but  seven  bytes  versus  two  becomes  quite  significant  when 
storing  many  different  dates  for  each  of  40  or  more  pilots. 

Defining  What  Is  Stored 

The  hardware  or  machine  and  program  language  depen¬ 
dent  data  storage  limitations  will  allow  the  application  to 
store  any  type  variable  data  that  may  be  needed.  The  appli¬ 
cation  program,  or  implementation  of  the  scheduling  algo¬ 
rithm,  must  store,  access,  and  manipulate  the  data  in  a 
meaningful  way.  Since  this  will  depend  on  many  factors, 
including  what  command  guidelines  and  regulations  affect  the 
unit,  how  many  pilots  are  assigned,  how  many  different 
missions  must  be  considered,  and  so  on,  a  means  of  storing 
not  only  the  data  but  the  meaning  of  the  data  must  be  de¬ 
vised. 

considered  in  the  design  of  the  algorithm,  so  that  its 
effects  are  not  significant.  Number  precision  data  is  from 
the  OSBORNE  1  User's  Reference  Guide  by  Thom  Hogan  and  Mike 
Iannamico,  Hayward,  CA:  Osborne  Computer  Corp.,  1981,  re¬ 
vised  2/22/82. 
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Data  Mass  Storage  Media 

The  storage  medium  available  for  this  program  is 
called  a  disk;  in  this  case  either  floppy  or  hard  disk.  The 
difference  in  these  is  mainly  one  of  capacity  and  access/ 
transfer  speed,  the  type  files  that  may  be  stored  are  essen¬ 
tially  identical.  A  disk  is  a  random  access  medium  for  mass 
storage,  that  is,  it  can  be  accessed  directly  throughout  its 
capacity.  A  sequential  access  device,  on  the  other  hand, 
must  read  everything  up  to  the  position  of  the  required  data 
in  order  to  find  that  data. 

An  example  of  sequential  access  is  the  cassette 
tape.  It  must  be  played  until  the  desired  selection  is 
reached;  it  must  be  rewound  to  find  specific  data  again. 
Use  of  the  tape  counter  makes  fast  forwarding  to  the  vicini¬ 
ty  of  a  selection  possible,  but  finding  one  note  or  word  of 
a  particular  song  would  be  difficult  without  listening  to  a 
complete  passage. 

The  random  access  disk  has  the  data  stored  on  it  in 
rings  or  tracks.  There  are  many  tracks  so  the  amount  of 
data  on  each  is  a  small  portion  of  the  total.  Even  though 
the  data  is  stored  sequentially  on  each  track,  it  can  be 
found  very  quickly  by  reading  the  whole  track  or  a  sector  of 
the  track.  Thus  the  disk  is  a  good  medium  to  have  for 
storing  the  data  required  by  this  project. 

Data  is  stored  on  the  disk  in  files.  Each  file  may 
include  many  records,  each  of  which  stores  a  unit  of  the 
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file.  This  can  be  visualized  as  each  of  the  sheets  contain¬ 
ing  responses  to  a  questionaire.  Each  record  is  then  di¬ 
vided  up  into  fields,  or  continuing  the  analogy,  the  re¬ 
sponses  to  each  question  on  the  questionaire.  For  this 
project,  a  file  could  contain  records  for  each  pilot  showing 
his  name.  Social  Security  Account  Number  (SSAN),  birth 
month,  training  status  code,  and  qualifications.  These 
divisions  by  pilot  would  be  the  fields,  the  complete  data  on 
a  given  pilot  would  be  a  record,  and  all  the  data  on  the 
pilots  of  the  squadron  would  be  a  file. 

Disk  files  themselves  may  be  either  random  access  or 
seqential  access  files.  Sequential  access  files  may  be 
found  directly  by  the  storage  medium,  the  disk,  but  must  be 
read  sequentially.  Random  access  files  may  be  accessed  by 
individual  record  directly.  The  advantage  of  sequential 
files  is  their  conservation  of  storage  space — very  little 
overhead  is  used  in  storing  the  information.  Random  access 
files  require  each  record  to  be  a  consistent  length,  so  a 
specific  record  position  can  be  calculated.  This  means  that 
if  the  longest  name  in  the  squadron  has  twenty  five  letters 
in  it,  even  the  shortest  name  will  also  effectively  take  up 
the  same  twenty  five  bytes  of  storage.  Perhaps  more  signif¬ 
icant  is  the  new  pilot  whose  name  will  not  fit  into  the 
'  existing  name  field— not  the  best  situation. 

The  point  of  this  discussion  is  that  data  storage 
must  be  considered  carefully  so  that  changes  can  be  accommo- 


dated.  Speed  of  access  and  active  storage  space  within  the 
computer  must  weigh  against  disk  space  available.  Most 
significant  is  the  ability  to  change  the  mode  of  storage  as 
requirements  change.  This  suggests  the  use  of  a  file  to 
store  the  meaning  of  the  contents  of  another  file.  Allowing 
the  user  to  define  what,  where  and  how  the  data  he/she  needs 
will  be  stored  will  make  for  maximum  flexibility  in  applica¬ 
tion  to  varying  locations,  guidance  and  regulations. 

Specific  Data  Types 

The  algorithm  being  developed  deals  with  pilot's 
personal  data,  qualifications,  currencies,  requirements, 
accomplishments,  and  availability.  Time  periods  may  vary 
from  three  years,  the  longest  currency  period  presently 
needed,  to  a  few  minutes.  Dates  may  be  needed  in  terms  of 
days  or  months,  or  may  refer  to  times  years  away.  Effective 
manipulation  of  data  in  these  forms  will  require  a  few 
standardizing  decisions  up  front. 

Individual  name  and  personal  data  will  mostly  be 
string  or  individual  character  type.  If  internal  data  ma¬ 
nipulation  is  accomplished  with  subscripted  or  array  vari¬ 
ables,  then  this  data  may  most  easily  fit  into  a  sequential 
file.  Initialization  of  run  time  variables  to  the  portions 
of  personal  data  needed  would  be  quick  and  accomplished  only 
once.  Prompts  and  other  user  interface  messages  could  in¬ 
sert  the  name  while  manipulating  the  data  in  an  array.  Data 
such  as  currencies  could  be  maintained  in  a  list  by  pilot  or 
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by  the  currency  requirement,  depending  on  the  use  being  made 
of  the  data. 

The  basic  concept  of  the  scheduling  model  is  that  a 
relationship  of  priority  exists  between  the  number  of  oppor¬ 
tunities  available  to  accomplish  a  requirement  and  the  num¬ 
ber  of  those  requirements  that  remain.  Implementing  this 
concept  requires  subtracting  the  individual  pilot  accom¬ 
plishments  from  the  total  required  for  the  given  item.  By 
eliminating  periods  that  are  known  to  be  unavailable,  a 
quotient  representing  the  relative  priority  of  pilots  for  a 
specific  training  asset  can  be  established.  If  only  those 
current  and  available  are  considered,  then  the  pilot  with 
the  highest  priority  is  the  one  assigned  to  use  that  item. 

This  concept  will  require  storage  of  many  data  items 
at  once.  If  the  requirement  is  to  fill  a  flight  lead  ACBT 
slot,  for  instance,  the  algorithm  must  check  all  pilots  for 
flight  lead  status,  ACBT  currency,  and  availability  during 
the  time  period  of  the  flight.  Then,  assuming  more  than  one 
pilot  is  available  who  fills  these  criteria,  each  pilot’s 
priority  for  the  ACBT  flight  must  be  calculated  and  com¬ 
pared.  When  the  highest  priority  is  determined,  given  all 
factors  and  weights  to  consider,  that  individual  must  then 
be  made  "not  available"  for  the  duration  of  the  flight  and 
the  briefing  and  debriefing  times  associated  with  it.  With 
that  pilot's  data  updated  for  the  potential  flight  comple¬ 
tion  and  the  flight  itself  filled,  the  next  priority  of 
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requirement  must  be  examined  in  the  same  way. 

Thus  it  becomes  obvious  that  implementation  of  this 
algorithm  requires  storage  of  and  access  to  availability, 
qualification,  and  currency  data.  A  schedule  is  normally 
built  on  a  weekly  basis  with  names,  but  tentative  plans  may 
be  made  over  longer  periods.  The  availability  data  must  be 
stored  in  a  format  allowing  any  degree  of  precision  required 
by  the  situation.  A  month  or  more  in  advance,  the  scheduler 
may  be  looking  at  half-day  time  increments?  he  will  be 
looking  at  parts  of  hours,  perhaps  minutes,  when  making  a 
final  daily  schedule. 

The  concept  of  a  file  defining  the  use  of  a  file 
makes  it  possible  to  store  the  standard  data  in  a  given 
application  very  compactly.  The  range  of  integer  numbers 
allows  currency  data  to  be  stored  as  the  units  digit  of  the 
year  'times  1000  plus  the  Julian  date.  For  example,  30 
January  1983  would  be  3  X  1000  +  30  or  3030.  Availability 
usually  requires  two  times  to  define  it,  the  beginning  and 
the  duration  or  end  time.  Since  a  training  period  is  six 
months  long,  the  day  of  the  period  times  100  plus  the  half- 
hour  of  the  day  would  fit  into  the  integer  number  range 
available^.  This  limits  the  resolution  of  the  system  to  the 
half-hour  block  that  includes  the  start  or  end  time,  but 
that  may  be  sufficient  for  most  long  range  factors. 

^A  maximum  of  184  days  times  100  equals  18400,  plus 
24  hours  in  a  day  times  2  equals  a  maximum  value  well  within 
the  limits  of  integer  values. 
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A  date  and  time  block  providing  one  minute  resolu¬ 
tion  would  need  four  digits  for  the  time  of  day  and  four 
more  for  the  day  and  year.  If  the  duration  were  limited  in 
some  way,  it  could  reduce  the  storage  space  required  for  the 
end  data,  but  using  the  same  format  reduces  the  complexity 
of  coding  and  decoding  without  limiting  flexibility.  For 
instance,  the  syptera  could  accommodate  both  a  30  minute 
duration  haircut  appointment  and  a  179  day  temporary  duty 
(TDY)  assignment  without  modification. 

One  factor  to  consider  in  currency  data  storage  is 
the  form  of  the  requirement,  currency  dates,  and  the  method 
for  their  comparison.  At  machine  level,  the  easiest  compar¬ 
ison  is  a  logical  AND  or  a  subtraction.  Since  this  is  done 
in  binary  form,  if  the  data  were  stored  in  binary  also,  it 
could  have  a  beneficial  effect  on  speed  of  operation.  This 
type  of  data  storage  and  comparison  technique  will  be  used 
for  the  availability  checking  routine.  Numbers  up  to  255  in 
decimal,  or  2®  less  one,  can  be  compared  directly  this  way 
with  an  eight  bit  microprocessor. 

Summary 

The  data  storage  is  driven  by  several  factors,  the 
machine  and  language  capabilities,  mass  storage  characteris¬ 
tics,  and  the  nature  of  the  information  to  be  stored.  The 
variations  from  one  user  environment  to  another  will  require 
significant  user  input  into  what  information  is  stored  and 
how.  The  general  types  of  information  will  be  character 
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strings,  numbers,  and  dates,  and  their  form  will  be  the 
smallest  that  can  be  used  consistent  with  the  range  and 
resolution  required. 


ANNEX  C 


PROGRAM  LISTINGS 

The  programs  listed  on  the  following  pages  show 
the  ability  of  a  microcomputer  to  handle  the  magnitude  and 
detail  of  the  scheduling  problem  at  squadron  level.  Several 
statements  are  included  which  "stub"  certain  routines;  these 
were  not  required  to  demonstrate  the  algorithm  and  were  not 
completed  due  to  time  constraints. 

These  programs  were  written  on  an  Osborne  1  with  the 
software  included  in  the  purchase  price  of  that  system.  The 
listing  was  done  on  an  IDS  Prism  132  printer  in  the  10  char¬ 
acter  per  inch  correspondence  font  mode. 

Any  reader  with  intent  to  apply  these  programs  to  an 
actual  scheduling  job  is  encouraged  to  contact  the  author  for 
a  copy  of  the  latest  version  on  disk. 
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10  0  1  ■*  *  *  CURDEF  .  SET  ********************#!********«•***** 

110  '  prsjna  dated  16  Miy  1983 

120 

130  '  Th  i  s  program  itti  or  ehmoti  the  values  stored  for 

140  each  currency  code 

13  0 

160  DEFINT  A-Z 

170  CLRS  a  CHR 1(26) :  DOWNS  a  CHRS(IO) 

180  MID  SCRNS  >  CLRS  ♦  STRING S ( 8 , 1 0 ) 

190  DIM  EVENTS ( 10  > 

200 

210  OPEN  "R" ,  1,  "CURDEF" ,  28 

220  F I  ELD* 1 ,  2  AS  Ml  1  * ,  20  AS  N12S,  2  AS  N13S,  2  AS  N14S 

,  2  AS  N13S 

230 

240  PRINT  MID. SCRNS  “Enter  currency  code  number  to  chang 

e  or  0  to  quit" 

230  PRINT:  PRINT"What  number’";:  INPUT"  ",  CODE 

260  IF  CODE  «  0  THEN  CLOSE:  END  ELSE  IF  CODE  >  13  THEN  P 

RINT"£rror,  out  of  range  <max  is  13>":  GOTO  230 

270  GET*1.  CODE 

280  CUR. CODE  a  CVI(NllS) 

290  CUR. NAMES  a  N12S 

300  PER. EX  a  C V  I ( N 1 3  S ) 

310  PER.INX  a  CVKN14S) 

320  EVNT  a  CVKN13S) 

330  IF  CUR. CODE  <>  CODE  THEN  PRINT" File  error  record  nu 

mber  not  equal  to  currency  code":  PRINT"Press  any  key  to  con 
tinue  .  DUMMY!  a  INPUTS < 1 ) 

340  PRINT  MID  SCRNS  “Current  data." 

330  PRINT  CUR. CODE  CUR  NAMES  PER  EX  PER  INI  EVNT 

360  PRINT 

370  PRINT"  Enter" 

380  PRINT"  0  if  all  correct,  no  changes" 

390  PRINT"  l  to  change  currency  name" 

400  PRINT"  2  to  change  experienced  currency  per 

iod" 

410  PRINT"  3  to  change  inexperienced  period" 

420  PRINT"  4  to  change  updating  event  number" 

430  PRINT"  Which  choice?";  A  a  VAL ( INPUTS < 1 ) >  PRINT  A 

440  IF  A  a  0  THEN  LSET  NliS  a  MKIS(CODE)  PUT#l,  CODE:  G 

OTO  2  4  0-  ELSE  IF  A  >  4  THEN  PRINT"Error,  enter  a  number  from 
0  to  4  only,  try  again.  ":  GOTO  430 
430  ON  A  COSUB  300,  380,  640,  700 

460  GOTO  340 

470 

48  0  ‘  sub  rout i nes _ 

490 

300  PRINT  MID  SCRNS  CUR.CCDE  CUR  NAMES  PER  EX  PER.INX  EV 

NT 

310  PRINT  PRINT"What  is  the  new  currency  name",:  INPUT 

CUR  NAMES 

320  IF  LEN( CUR  NAME*'  >  20  THEN  PR!NT"Too  long,  only  20 

characters  will  be  saved" 

330  PRINT"Enter  0  if  currency  name  is  correct,  1  to  chan 


at  it:  " ; :  A  *  VAL ( INPUT* ( 1 > >  PRINT  A 

540  IF  A  ■  1  THEN  GOTO  510  ELSE  IF  A  <>  0  THEN  P R I NT "Err 

or,  0  or  1  only,  try  again  “ :  GOTO  530 
550  LSET  N12*  ■  CUR. NAME* 

540  RETURN 

570 

580  PRINT  MID  SCRN*  CUR . CODE  CUR . NAME  *  PER  EX  PER.  INX  EV 

NT 

590  PRINT  PRINT"Entsr  ths  psriod  of  currency  for  txptri 

•need  pilots" 

400  INPUT"Vhat  is  ths  currsncy  period  (days)?  ",  PER. EX 

410  LSET  N 1  3  *  ■  MKIKPER  EX) 

420  RETURN 

430 

440  PRINT  MID. SCRN*  CUR . CODE  CUR  NAME*  PER  EX  PER. INX  EV 

NT 

450  PRINT  PRINT"Entsr  ths  psriod  of  currsncy  for  insaps 

risnesd  pilots" 

440  INPUT"Vhat  is  ths  currsncy  psriod  (days)?  ",  PER.  INX 

470  LSET  N 1 4 (  «  MKI * ( PER . INX ) 

480  RETURN 

490 

700  PRINT  MID  SCRN*  CUR. CODE  CUR. NAME*  PER. EX  PER  INX  EV 

NT 

710  PRINT:  PRINT“Entsr  ths  svsnt  numbsr  that  updatss  thi 

s  currsncy  (?  for  hslp)  " 

720  INPUT"Vha  t  is  ths  svsnt  numbsr?  ",  EVNTS 

730  IF  EVNT*  -  " ? "  THEN  GOSUB  790 

740  EVNT  •  VAL (EVNT*) 

750  IF  EVNT  <  1  OR  EVNT  >  10  THEN  PR INT" En  t  s r  a  numbsr  f 

rom  1  to  10  only":  GOSUB  790:  GOTO  740 
740  LSET  N15*  «  MKI*(EVNT> 

770  RETURN 

780 

790  OPEN  "R",  2,  " CUREVNT .  DEF  " ,  24 

800  F I  ELD*  2 ,  2  AS  N2 1  $  .  20  AS  N22* 

810  1*0 

820  FOR  I  ■  1  TO  10 

830  GET*  2 ,  I 

840  EVENT* ( I >  *  N22* 

850  NEXT 

840  FOR  I  ■  1  TO  10 

870  PRINT  I  "-  "  EVENT* ( I ) 

880  NEXT 

890  INPUT"Vh i eh  svsnt  numbsr?  ",  EVNT* 

900  RETURN 
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t00  '***  ACTDEF  SET  *********************************** 

110  'program  datid  16  May  1983 

120 

130  'This  proqcim  i«  1 1  or  chtnqii  the  vtluu  itoctd  for 

140  '  itch  activity  cods 

130 

160  DEFINT  A-Z 

170  CLR*  ■  CHR $  <  2  6 )  :  DOWN*  ■  CHR*(10>:  MID.SCRN*  «  CLR*  : 

FOR  I  ■  l  TO  8 :  MID  SCRN*  a  MID  SCRN*  +  DOWN*  NEXT 
180  DIM  ST.TC3),  END  T<3>,  GP*C3>,  CUR  CAT*(15),  QUAL  CA 

T*  ( 1 3 ) 

190  ST.T(0)  «  0:  ST  . T (  l  >  ■  13:  ST  T<2>  »  133:  ST.7<3)  « 

163 

2  0  0  END  T ( 0 )  *  0 .  END  T ( 1 >  «  9  Q  END  T  <  2  >  »  18  0  END  T  <  3 

)  «  240 

210  GP*(0>  •  "Non-duty  activities"  GP*(l)  ■  "Duty/non-f 

lying  ic t i v i t i •*" 

220  GP*<2>  *  "Flying  ictitfitin"  GPS(3>  »  "Long  flight 

activiti**" 

230 

240  OPEN  "R".  1,  “ACT  DEF",  46 

230  F I  ELD# 1 ,  2  AS  Nil*.  20  AS  N12$,  2  AS  N13*,  2  AS  N14* 

,  10  AS  N139  ,  10  AS  N16* 

260 

270  PRINT  MID  SCRN*  "Enter  Activity  cod*  numb  or  to  chang 

•  or  0  to  quit" 

280  PRINT:  PRINT"What  number?";:  INPUT"  ",  CODE 

290  IF  CODE  a  0  THEN  CLOSE:  END  ELSE  IF  CODE  >  253  THEN 

PRINT" Error ,  out  of  rang*  <oai  is  235>":  GOTO  280 

300  GET# 1 ,  CODE 

310  ACT  CODE  a  CVI(N11*> 

320  ACT  NAME*  a  Ml  2* 

330  ST  .  T  »  CVKN13*) 

340  END  T  »  CVI (N1 4*  > 

350  CURS  a  N15S 

360  QUAL*  «  N16* 

370  IF  ACT. CODE  O  CODE  THEN  PRINT"Fil*  trror  cteord  nu 

mbtr  not  tqual  to  activity  cod*"  PRINT"Pr*s*  any  key  to  con 
t inu* 

DUMMY*  «  INPUTS (1) 

380  PRINT  MID.SCRN*  "Current  data:" 

390  PRINT  ACT  CODE  ACT. NAME*  ST  T  END  T 

400  PRINT 

410  PRINT"  Enter" 

420  PRINT"  0  if  all  correct,  no  chang**" 

430  PRINT"  1  to  chang*  activity  naa*" 

440  PRINT"  2  to  chang*  start  or  and  tin*  offset 

s" 

430  PRINT"  3  to  check  currency  requirements" 

460  PRINT"  4  to  cheek  qualification  requirement 

s" 

47  0  PRINT"  Which  choice’";  A  a  VAL  C INPUT* ( t )  )  PRINT  A 

480  IF  A  a  0  THEN  LSET  Nil*  -  MKI*<CODE>  PUT# 1 ,  CODE  C 

OTO  270  ELSE  IF  A  >  4  THEN  PR INT" E r r o r ,  enter  a  number  from 
0  to  4  only, 


try  again  .  GOTO  470 

490  ON  A  GOSUB  340,  420,  790,  1030 

300  GOTO  380 

310 

320  '  subroutines 

330 

340  PRINT  MID  SCRN*  ACT  NAME* 

550  PRINT"Vhat  is  the  new  activity  mat";:  INPUT  ACT  NAM 

E  * 

560  IF  LEN( ACT  NAME* )  >  20  THEN  PRINT"Too  long,  only  20 

characters  will  be  saved" 

570  PRINT"Enter  0  i£  activity  name  is  correct,  1  to  chan 

ge  it:  " ; :  A  >  VAL ( INPUT* ( 1 >) :  PRINT  A 

380  IF  A  ■  1  THEN  GOTO  460  ELSE  IF  A  <>  0  THEN  PRINT"Er  r 

or,  0  or  1  only,  try  again":  GOTO  490 
59  0  LSET  N12*  •  ACT . NAME  * 

600  RETURN 

6  10 

620  PRINT  MID. SCRN*  "Start  offset  is  the  time  before  the 

activity  that  availability  is  required" 

630  PRINT"End  offset  is  the  time  for  the  activity  and  de 

brief  or  travel  time  following" 

640  J  a  ACT  CODE  /  44 

450  PRINT"This  activity  code  group  includes  "  GP*(J)  " : " 

660  PRINT  ST  T(J>  "is  the  standard  number  of  minutes  set 

for  start  offset" 

670  PRINT  END  T(J)  "is  the  standard  and  offset" 

680  PR I NT" En  t  et : " 

690  PRINT"  0  if  the  old  offsets  are  correct" 

700  PRINT"  1  to  change  to  the  standard  offsets" 

710  PRINT"  2  to  enter  different  offsets" 

720  PR  I NT"Vh i ch  choice?  ";:  A  »  VAL ( INPUT* ( 1 )>  :  PRINT  A 

730  IF  A  a  0  THEN  GOTO  76  0  ELSE  IF  A  >  2  THEN  PRINT"Er  ro 

r,  0,  1,  or  2  only,  try  again...":  GOTO  720 


740 

IF  A  a  1 

THEN  ST.T  a  ST 

.  T(  J> :  END 

.T 

a  END.T(J) 

750 

IF  A  a  2 

THEN  INPUT" S  tart  offset 

(minutes) : 

I* 

t 

ST.T. 

INPUT" 

End  offset 

(minutes):  ", 

END  .T 

740 

LSET  N l 3  S 

-  MK I  *  <  ST  T  >  : 

LSET  N l 4  » 

* 

MKI * ( END 

T> 

770 

RETURN 

780 

1 

790 

OPEN  "R" , 

2,  "CUR.DEF", 

28 

800 

F I E  LD#  2 , 

2  AS  N21t,  20 

AS  N22*  ,  2 

AS 

N23S,  2 

AS 

N24  S 

,  2  AS  N23* 

810  I  a  0 

820  FOR  I  -  1  TO  15 

830  GET#  2 ,  I 

840  CUR  CAT*  < I >  ■  N22  * 

830  NEXT 

840  PRINT  MID  SCRN*  "Up  to  five  combinations  of  currenci 

es  are  allowed  for  each  activity" 

870  PRlNT"For  each  currency  category  enter  l  if  it  appli 

es.  0  if  it  does  not 
880  CUR ( 1 )  a  0:  J  a  1 

890  FOR  I  a  1  TO  15 

900  PRINT  CUR  CAT»(D  "  ?  " 


BIT  -  VAL  f INPUT* ( 1 ) 


>  PRINT  BIT 

910  IF  BIT  THEN  CUR<J>  a  CUR(J)  *  2  *  <  Z - 1 > 

920  NEXT 

930  PRINT"This  set:  complete,  enter  0  it  done,  1  to  enter 

another  set**;:  A  a  VAL < INPUTS < 1 > >  PRINT  A 
9 A 0  IF  A  »  l  THEN  J  -  J  ♦  1:  IF  J  >  3  THEN  PRINT"No  more 

room  for  currency  sets"  J  ■  5  ELSE  CUR(J)  a  0  COTO  890 
950  IF  A  <>  0  THEN  PR  I  NT " E r r o r ,  enter  0  or  1  only,  try  a 

gain.  .  "  :  COTO  930 
940  CURRS  -  "" 

970  FOR  I  a  1  TO  J 

980  CURRS  -  CURRS  ♦  MXIS<CUR<I>> 

990  NEXT 

1000  LSET  N15S  .  CURRS 

1010  CLOSE#2 :  RETURN 

1020 

1030  OPEN  "R",  2,  "QUAL  OEF",  22 

1040  FIELD*2,  2  AS  N2 1 S ,  20  AS  N22S 

1030  I  a  0 

1040  FOR  I  a  1  TO  15 

1070  GET*  2 ,  I 

1080  QUAL  CATS C I >  *  N22S 

1090  NEXT 

1100  PRINT  MID  SCRNS  "Up  to  flue  combinations  of  qualific 
ations  are  allowed  for  each  activity" 

1110  PRINT"For  each  qualification  category  enter  1  if  it 

applies,  0  if  it  does  not.  " 

1120  QUAL ( 1 )  a  0:  J  a  1 

1130  FOR  I  a  1  TO  15 

1140  PRINT  QUAL . CATS ( I )  "?  BIT  -  VAL( INPUTS (1 

) ) :  PRINT  BIT 

1130  IF  BIT  THEN  QUAL(J>  ■  QUAL(J)  ♦  2*<I-1> 

1140  NEXT 

1170  PRINT"This  set  complete,  enter  Q  if  done,  1  to  enter 
another  set";.  A  a  VAL < INPUTS ( 1 > >  PRINT  A 
1180  IF  A  a  1  THEN  J  a  J  *  l:  IF  J  >  3  THEN  PRINT"No  more 

room  for  qualification  sets".  J  a  3  ELSE  QUAL(J)  a  0:  COTO 
1130 

1190  IF  A  <  >  0  THEN  PR I NT " E r r o r ,  enter  0  or  l  only,  try  a 

gain  . " :  COTO  1170 
1200  QUALS  a  "" 

1210  FOR  I  a  1  TO  J 

1220  QUALS  a  QUALS  ♦  MX I S < QU AL ( I > ) 

1230  NEXT 

1240  LSET  N14S  a  QUALS 

1230  CLOSE42  RETURN 

1240 
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tQQ  ****  UPDATE  *************************************** 

110  'program  dated  21  May  1983 

120 

130  ‘This  program  allows  antry  of  availability  data  for 

140  1  pilots 

ISO 

140  'variables  required: 

170  non* 

180 

190  'rsturns: 

200  '  PILnn.DAT  files  updatsd  and  in  ordir 

210 

220  DEFINT  A-2 

230  CLR*  ■  CHR  *  <  2  4  )  :  DOWN*  «  CHRSCiQ):  ESC*  »  CHR*<27) 

240  MID.SCRN*  «  CLR*  «•  STRINGS < 4 , 1 0 > 

250  HOME*  *  CHR *  <  3  0  >  :  CLR. LINE*  ■  ESC*  ♦  "T" 

240  Ct  «  "Enter:  0  if  correct,  1  to  change  it  " 

270  E*  ■  "Error,  enter  0  or  1  only,  try  again." 

280 

290  MAX. PIL.NUM  -  40 

300  IF  P  *  <  0  ,  0  >  <>  CHR* (  255  )  THEN  ERASE  P*  :  DIM  P»(MAX.PI 

L . NUM , 4 ) 

310  IF  QUAL  *  <  0  >  < >  CHR  S (  2  5  5  >  THEN  ERASE  QUAL*.  DIM  QUAL* 

(15) 

320 

330  ' open  key  file. 

340  GOSUB  4080 

350  'read  in  all  names... 

340  GOSUB  4010 

370  CLOSE 

380 

390  'open  qual  def  file... 

400  GOSUB  4120 

410  FOR  I  «  1  TO  15;  GETP2 ,  I:  QUALSCI)  «  N2  2*  NEXT:  CL 

OSE 

420 

430  ‘open  curevnt.def  file. 

440  GOSUB  4140 

450  FOR  I  -  1  TO  10  GETS  2 ,  I:  TRIM*  »  N22*.  GOSUB  2490. 

EVENT* ( I)  •  TRIM*:  NEXT:  CLOSE 
440 

470  PRINT  MID.SCRN*  "  Enter:" 

480  PRINT"  0  to  quit,  all  done" 

490  PRINT"  1  to  add  a  new  pilot  data  file" 

500  PRINT”  2  to  change  data  in  existing  data  fi 

le" 

510  PRINT”  3  to  delete  a  pilot  data  file" 

520  PRINT"  Which  choice?  SEL  -  VAL ( INPUT* ( 1 ) )  PRIN 

T  SEL 

530  IF  SEL  <»  0  THEN  END  ELSE  IF  SEL  >  3  THEN  PRINT" E  r  r  o 

r,  enter  a  number  0  to  3  only,  try  again  .."  GOTO  520 

540  ON  SEL  GOSUB  400,  1340,  1540 

550  GOTO  470 

540 

370  '  add  pilot  data 


sao 

390  'print  ntnts  to  fctiin 

600  COSUB  3990 

4  10 

420  INPUT"Which  pilot  nuabir  do  you  want  to  usa?  ",  NUM 

430  IF  NUM  •  0  GOTO  1280 

440  NUM$  ■  STRS (NUM) 

430  NUMS  -  M I  D  S  ( NUMS  , 2  > 

440 

470  ' ehack  if  fila  a  1 r aa  dy  axisti. 

480  ON  ERROR  COTO  700 

490  FILENAMES  •  "  P  I  L  "  +  NUMS  «•  "DAT":  OPEN  "I",  1,  FILE 

NAMES 

700  IF  ERR  »  53  THEN  RESUME  750 

710  PRINT  FILENAMES  "  axists  on  this  disk,  confirm  you  w 

ant  to  ovarwrita  (dastroy)  it" 

720  PRINT:  PRINT"Entar  0  to  continua,  1  to  NOT  ovarwrita 

this  fila:  AS  ■  INPUTS ( t ) :  PRINT  AS 

730  IF  AS  -  "1"  COTO  420 

740  IF  AS  <>  "0"  THEN  PRINT  ES:  GOTO  720 

730  ON  ERROR  GOTO  0 

740  CLOSE 

770 

780  ' naaa  data  antarad  at  subroutinas.  .  . 

790  FOR  I  *  1  TO  3 :  ON  I  GOSUB  4270,  4340,  4400:  NEXT 

800 

810  ' chaek  admin  data,  updata  kay  fila... 

820  GOSUB  2380 

830 

840  'now  put  in  individual  fila. 

830  OPEN  "O".  I,  FILENAMES 

840  WRITE* 1,  NUMS 

870  WR I TE *  1 ,  L  NAMES,  F  NAMES,  MIS 

880  WRITE* 1 ,  RANKS 

890  WR I TE  * l ,  SSANS 

900 

9k0  'ask  and  sava  qualifications  at  ones. 

920  WR ITE* 1 ,  "QUALIFICATIONS  " 

930  FOR  I  -  1  TO  15 

940  PRINT  MID . SCRNS 

930  PRINT"Entar  a  1  dioit  if  tha  qualification  applias, 

0  if  it  doas  not" 

940  PRINT:  PRINT  QUALStl)  "?  0  or  1:  A  «  VAL(INPUTS( 

l)).  IF  A  <  0  OR  A  >  l  THEN  PRINT  A  ES  GOTO  960 
97  0  WRITE  *  1 ,  A 

980  NEXT 

990  CLOSE  *2 

1000 

1010  '  saaa  for  currancy  datu 

1020  WRITE* 1 ,  "CURRENCIES  " 

1030  'opan  curr  avant  naaa  fila  as  *2 

1040  GOSUB  4160 

1030  FOR  I  >  1  TO  10 

1040  PRINT  MID  SCRNS 

1070  PRINT" En  t  a  r  tha  data  "  EVENTS  < .1)  "  last  accomplishad 
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or  0  for  non*  : 

1080  COSUB  5630 

10  90  WRITE  # 1 ,  DATE 

1100  NEXT 

1110  CLOSE  *2 

1120 

1130  'opm  activity  dtf  initon  file 

1140  COSUB  4200 

1150  As  1  :  N  ■  0  :  MAX . N  ■  10 
1160  COSUB  1920 

1170  ‘save  max  number  activites  .  . 

1180  MAX . N  *  N 

1190 

1200  'entries  complete,  sort  them. . . 

1210  COSUB  4890 

1220  'then  check  for  conflicts. . . 

1230  COSUB  5070 

1240  'print  to  file.. 

1250  WRITE* 1 ,  "ACTIVITIES  SCHEDULED:",  MAX  N 
1260  FOR  I  •  1  TO  MAX.N:  PRINTil,  ACT* ( I ) :  NEXT 
1270  CLOSE 

1280  RETURN 


1290 

i 

1300 

l 

13  10 

'  chanae  or  add  to  eiiitina  Dilot  data  files 

1320 

l 

1330 

'get  and  check 

pilot  number . . . 

1340 

COSUB  1730 

1350 

1 

1360 

'read  file  into 

memory . . . 

1370 

COSUB  3550 

1380 

PRINT  MID. SC RN $ 

CVI ( P* (NUM, l )  >  "  -  "  P  » ( NUM , 2 )  P* (NU 

M  ,  3  )  ”  " 

P* (NUM, 4 ) 

1390 

PRINT:  PRINT" 

Enter:" 

1400 

11  done" 

PRINT" 

0  if  no  more  changes  or  additions,  a 

14  10 

SSAN )  " 

PRINT" 

1  to  change  admin  data  (name,  rank, 

1420 

PRINT" 

2  to  change  qualification  data" 

1430 

PRINT" 

3  to  update  currency  data" 

1440 

PRINT" 

4  to  add,  change  or  delete  availabil 

i t y  data 

If 

1450 

PRINT"  Which  choice*  " ; :  A  *  VAL ( INPUT* ( l >> :  PRINT 

A 

1460 


1470 

IF 

A  * 

0  THEN 

COSUB 

2900  : 

RETURN 

1480 

IF 

A  > 

4  THEN 

PRINT" 

Error 

,  enter  0  to  4  only, 

t  ry  ag 

a  i  n , 

.  " .  COTO 

1450 

1490  ON  A  COSUB  2580,  3130,  3230,  3330 

1500  COTO  1380 

15  10 
1520 

15  30  '  de 1 e  t  e_comp Iete_pilot_data_fiIe 

1540 

1550  'get  and  check  pilot  number 


1560  COSUB  1730 

1370  PRINT" Enter  0  to  delete  this  tile,  1  to  abort  delete 
act  ion" 

1380  INPUT"Vhieh  one",  D 

1390  IF  D  <>  0  THEN  PR  I NT" E x i t i ng  delete  mode,  file  NOT  d 

eleted. FOR  I  -  1  TO  1000:  NEXT:  GOTO  1680 
1600  OPEN  "O",  3,  TMP.FILS:  CLOSE#3:  GOSUB  3030:  KILL  FIL 

ENAME  * 

1610  'reset  key  file.. 

1620  GOSUB  4080 

1630  LSET  N1S  »  MKIS(NUM):  LSET  M2 S  »  "Not  in  use".  LSET 
N3$  ■  "  "  LSET  N4S  »  " 

1640  PUT# 1 ,  NUM 

1630  CLQSEil 

1660  ‘reset  memory  variables.  .  . 

16  70  P  $  <  NUM , 2  >  ■  "Not  in  use":  PS (NUM, 3)  «  "  ":  PI (NUM, 4 

)  ■  " 

1680  RETURN 

1690 

1700  '  subroutines 

17  10 

1720  'get  and  confirm  pilot  number  . . 

1730  PRINT  MID  SCRNS 

1740  PR INT" En  t  e  r  the  last  name  or  pilot  number  ",  INPUT" 
",  ANSWERS 

1730  IF  ASC ( LEFTS  <  ANSWERS , 1 ) >  <  38  THEN  NUM  •  VAL  < ANSWERS 

):  THIS. NUM  «  -1  ELSE  NUM  ■  0:  L. NAMES  «  ANSWERS 
1760  'look  for  name  match.  . 

1770  WHILE  NUM  <  MAX  . PIL.NUM  AND  NOT  THIS. NUM 
1780  NUM  *  NUM  ♦  l 

1790  IF  L. NAMES  «  LEFTS ( P S ( NUM . 2 >, LEN ( L  NAME S ) )  T 

HEN  THIS. NUM  *  -1  ELSE  THIS. NUM  »  0 
1800  WEND 

1810  IF  THIS. NUM  -  0  THEN  GOSUB  3890:  PRINT:  PR INT" Enter 

pilot  number.  INPUT  NUM 

1820  IF  NUM  «  0  THEN  GOTO  1890 

1830  PRINT  MID . SCRNS  CV I ( P S ( NUM , l > >  "  -  "  PS(NUM,2)  PS(NU 

M . 3 )  "  "  P  S ( NUM , 4 ) 

1840  PRlNT"Enter  0  if  this  the  correct  entry;  1  if  not  co 
rrect:";:  THIS. NUM  -  VAL < INPUTS ( l >) :  PRINT  THIS  NUM 
1830  IF  THIS. NUM  »  l  THEN  THIS. NUM  >  Q:  GOTO  1810 

I860  IF  THIS. NUM  <>  0  THEN  PR INT" Error,  enter  0  or  1  only 

GOTO  1830 

1870  'have  correct  number,  qet  filenames 

1880  GOSUB  3810 

1890  RETURN 

1900 

1910  'input  a  new  activity.. 

1920  WHILE  A 

1930  N  •  N  ♦  1 

1940  PRINT"Enter  activity  code  <9  for  help)  ", 

1930  INPUT"  ",  CODES 

I960  IF  CODES  -  "  V  THEN  GOSUB  4430  ELSE  IF  CODES 

.  "0”  THEN  GOTO  2400 

ACT. CODE  -  VAL (CODES) 


1970 


1980 

"Entry  ij 
1990 

SE  OTHER 
2000 


ACT . NAME 


20  10 
2020 
2030 
2040 
2030 
2  0  8  0 
2070 

occurs  on" 
2080 
2090 
2100 
2110 
2120 
2130 

ACT. CODE  «  82 

2140  'not  i 

2130 

2180 

2170 

pply" 

2180 
2190 
I  NT  A* 

2200 

2210 

2220 

2230 

IME  «•  END  T 
22  40 
2230 
2280 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
it*  " 

2330 
2380 
2370 
2380 
2390 
2400 
24  10 
2420 
2430 


IF  ACT. CODE  <  1  OR  ACT  CODE  >  235  THEN  PRINT 

of  rang*...":  COSUB  4450:  GOTO  1970 

IF  (ACT. CODE  AND  63)  «  63  THEN  OTHER  »  -1  EL 

IF  OTHER  THEN  INPUT"Vhat  is  tha  activity  nam 
'$  :  GOTO  2  0  60 

GETS  2 ,  ACT  CODE 
TRIM*  ■  N22* 

GOSUB  2490 

ACT. NAMES  -  TRIMS 

PRINT  MID . SCRNS 

PR INT" En  t • r  tha  data  "  ACT. NAMES  "  starts  or 


GOSUB  5630 

ACT. DATE  *  DATE:  END . DATE  «  0 
PRINT  MID . SCRNS 
PRINT"Entar  tha  schadulad  tima: 
INPUT  TIMES:  GOSUB  3190 
IF  OTHER  THEN  GOSUB  4690:  GOTO 
OR  ACT. CODE  »  61  THEN  GOSUB  4820 
ithar  and  not  61  or  62  .  .  . 

PRINT  MID  SCRNS 
PRINT"  Entar:" 

PRINT"  0  if  standard 


2230  ELSE  IF 
GOTO  2230 


tima  offsats 


PRINT"  1  to  changa  than" 

PRINT"  Vhich  choica?  AS  »  INPUTS ( 1 >  PR 

IF  AS  «  "l"  THEN  COSUB  4690:  GOTO  2230 
IF  AS  <>  "0"  THEN  PRINT  ES:  GOTO  2160 

START  -  CVKN23S):  END  .  T  »  CVKN24S) 

ACT. ST. TIME  »  TIME  -  START:  ACT. END. TIME  •  T 

IF  END. DATE  »  0  THEN  END . DATE  •  ACT . DATE 
ACT.LNS  «  STRINGS < 23 , 32 > 

MIDS < ACT. LNS , l , 3)  »  STRS < ACT . CODE > 

MIDS (ACT. LNS , 6 , 5 >  «  STRS < ACT . DATE ) 

MIDS (ACT. LNS , l l , 5 )  -  STRS ( ACT  ST . TI ME > 

MIDS (ACT. LNS , 16 , 5 >  -  STR S ( END  DATE ) 

MIDS ( ACT. LNS  ,  2  1  ,  3 >  *  STRS ( ACT . END . TIME > 
ACT.LNS  »  ACT.LNS  ♦  ACT. NAMES 
IF  N  >-  MAX . N  THEN  GOSUB  3740 
ACTS ( N )  -  ACT.LNS 

PRINT  MID. SCRNS  "  Chack  tha  activity  d 

PRINT  N  "  "  ACTS ( N > 

PRINT  CS,.  A  «  VAL( INPUTS ( 1 >) :  PRINT  A 

IF  A  >  1  THEN  GOTO  1940 

IF  A  <>  0  THEN  PRINT  ES:  COTO  2360 


PRINT" Entar : " 

PRINT"  0  if  antrias  complato" 

PRINT"  1  if  nora  activitias  to  antar" 
PR INT"Wh i ch  ona?  A  -  VAL ( INPUTS ( 1 ) > 
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NT  A 

1440  IF  A  <  0  OR  A  >  1  THEN  PRINT  E*;  GOTO  2430 

2  450  VEND:  ‘activity  int  ry  loop. 

2440  RETURN 

2470 

2430 

2490  L  a  LEN ( TRIM*  >  ♦  1  L.CKRi  -  CKRS(O) 

2500  WHILE  ASC  <  L  CHR* )  <  33 

2510  L  a  L  -  1 

2520  L.CHR*  a  MID* (TRIMS ,  L  ,  1  > 

2530  WEND 

2540  TRIM*  a  LEFT* (TRIM* ,L> 

2550  RETURN 
2540 

2570  ' china*  admin  data  . 

2580  PRINT  MID.SCRN* 

2590  PRINT" Chack  tha  pilot  data:" 

2400  PRINT:  PRINT"Pilot  nuabtt  aaaignad:  NUM* 

2410  PRINT:  PRINT  L  NAME  *  ",  "  F  NAME*  “  "  MI*  ",  "  RANK* 

"  "  SSANS 

2420  PRINT:  PRINT 

2430  PRINT"  Changa  which  antry" 

2440  PRINT"  0  -  no  nora  changas,  all  corract" 

2450  PRINT"  l  -  nama" 

2440  PRINT"  2  -  rank/grada" 

2470  PRINT"  3  -  SSAN" 

2480  PRINT"  4  -  changa  all  antriai" 

2490  PRINT"  Which  ona?  ";:  Al*  «  INPUT* ( 1 > :  PRINT  Al* 

2700  IF  Al*  a  "0"  THEN  GOTO  2740 

2710  IF  VAL (Alt)  >  4  THEN  PRINT" Error,  intir  0  to  4  only, 

try  again...":  GOTO  2490 

2720  ON  VAL (Alt)  GOSUB  4270,  4340,  4400,  4250 

2730 

2740  'antriai  ara  corract,  put  in  kay  fila. 

2750  ' opan  kay  fila. 

2740  GOSUB  4080 

2770  'and  lira  kay  data.  .  . 

2780  LSET  N1 *  «  MKIt(NUM) 

2  790  LSET  N2 *  ■  L  NAME  * 

2800  INIT*  .  LEFT* (F. NAME* , 1 >  >  LEFT* (MI » , l ) 

2810  LSET  N3  *  a  INIT* 

2820  LSET  N4 *  a  RANKS 

2830  PUT#1,  NUM 

2840  CLOSEftl 

2850  'put  in  aamory  array.  .  . 

28  4  0  P * ( NUM ,  1 )  a  MK I  1 ( NUM )  :  P*(NUM,2>  a  L  NAME*  ♦  STRING* 

( 20-LEN( L . NAME* ) , 32 ) :  P*(NUM,3>  a  INIT*:  P*(NUM,4)  a  RANK* 

2870  RETURN 
2880 

2890  'put  all  data  in  individual  fila  (callad  from  many  r 

out ina* )  1 

2900  OPEN  "0".  1,  TMP  FIL* 

2910  WRITE  4 1 ,  NUM* 

2  9  20  WRITE#! ,  L . NAME  * ,  F  NAME  *  ,  MI* 

2930  WRITE# 1 ,  RANK* 
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2940  WRITE # 1 ,  SSANS 

2930  WRITE# 1 ,  QUAL . ID* 

2940  FOR  I  a  1  TO  15:  VRITE#1.  QV  (  I)  :  NEXT 
2970  WRITE#1,  CUR. ID* 

2980  FOR  I  -  1  TO  10.  WRITE#l,  CUR.DT(I).  NEXT 
2990  WRITE  # 1  ,  ACT.  ID*.  MAX . N 

3000  FOR  I  ■  1  TO  MAX  N.  PRINT# 1,  ACT* ( I ) :  NEXT 
3010  CLOSE 

3020  'and  rtiuni  files.  .  . 

3030  ON  ERROR  COTO  3090 

3040  KILL  BAK  FIL* 

3030  ON  ERROR  COTO  0 

3040  NAME  FILENAME*  AS  BAK  FIL* 

3070  NAME  TMP.FIL*  AS  FILENAME* 

3080  GOTO  3100 

3090  IF  ERR  a  S3  THEN  RESUME  3030  ELSE  GOTO  3030 

3100  RETURN 

3110 

3120  ‘ change  qual  data  .  . 

3130  PRINT  MID.SCRN*  CV I ( P * ( NUM , 1 ) >  "  -  "  PS(NUM,2>  P*(NU 
M . 3 )  "  "  P  S  <  NUM . 4 ) 

3140  FOR  I  a  1  TO  15:  PRINT  I  TAB  <  4 )  QUALS(I>  QV C I )  :  NEXT 
3150 

3140  PRINT:  PRINT"Enter  0  if  all  correct  or  qual  number  t 
o  change" 

3170  PRINT"Wh i ch  number  <Q-13>?";:  INPUT  ON 

3180  IF  QN  a  0  THEN  RETURN  ELSE  I F  QN  >  13  THEN  PRINT" Err 

or,  a  number  from  0  to  15  only,  try  again.":  GOTO  3170 

3190  IF  QV(QN)  a  1  THEN  QV(QN)  a  0  ELSE  GV(QN)  a  1 

3200  GOTO  3140 

3210 

3220  'update  currency  dates. 

3230  PRINT  MID.SCRN*  CV I C P * < NUM , 1 > >  "  -  "  PS(NUM,2)  PS(NU 
M , 3  >  "  "  P  *  <  NUM , 4 ) 

3240  FOR  I  a  1  TO  10:  PRINT  I  TAB ( 4 >  EVENTS ( I)  TABC28)  CU 
R . DT< I > :  NEXT 

3230  PRINT:  FRINT"Enter  0  if  correct  or  item  number  to  ch 
ange" 

3240  PR INT"Wh i ch  number  <0-10>";:  INPUT  CN 

3270  IF  CN  <  a  0  THEN  RETURN  ELSE  IF  CN  >  10  THEN  PRINT" E  r 

ror,  enter  a  number  from  0  to  10  only,  try  again.  .":  GOTO  3 
240 

3280  PRINT"Enter  the  new  currency  date  (accomplished  date 

) " :  GOSUB  5430 

3290  CUR.DT(CN)  a  DATE:  GOTO  3230 
3300  'returns  on  zero  entry  above. 

33  10 

3320  'add,  change  or  delete  availability  data 

3330  PRINT  MID.SCRN*  CV I ( P S < NUM , 1 > >  "  -  "  P*(NUM,2>  P*(NU 

M , 3 )  "  "  P  »  < NUM , 4  > 


33  40 

PRINT" 

Enter:" 

3350 

PRINT" 

0 

i  f 

activity  changes  completed" 

3340 

PRINT" 

1 

t  0 

add  new 

activities" 

33  70 

PRINT" 

2 

t  o 

change 

existing  activities" 

3380 

PRINT" 

3 

t  0 

delete 

activities" 

3390  PRINT"  Which  choice?  " ; :  A  *  VAL < INPUT* < i )) .  PRINT 
A 

3400  IF  A  .  0  THEN  RETURN  ELSE  IF  A  >  3  THEN  PRINT" Error, 

enter  a  number  from  0  to  3  only,  try  again.  ."  GOTO  3390 
3410  ON  A  G05UB  3440,  3510,  3520 

3420  GOTO  3330 

3430  'return  selected  with  zero  response  above... 

3440 

3450  'open  def  file,  get  activity  entries... 

3440  GOSUB  4200:  PRINT  MID..  SCRNS ; .  N  *  MAX  N :  A  «  1:  GOSU 

B  1920:  CLOS  E  *  2  MAX . N  »  N 

3470  'sort  and  check  for  conflicts... 

3480  GOSUB  4890:  GOSUB  5070 

3490  RETURN 

3500 

3510  PRINT"Change  not  written  yet  ":  DUMMY*  a  INPUTS < 1 ) 

:  RETURN 

3520  PR INT"De 1 e  t  e  not  written  yet...":  DUMMY*  *  INPUTS < l > 

:  RETURN 
3530 

3540  'open  data  file  and  read  into  memory,  close. . . 

3550  OPEN  "I",  2,  FILENAMES 

3540  INPUT  *2 ,  NUM* ,  L. NAMES,  F  NAMES,  MIS,  RANKS,  SSANS 

3570  IF  EOF  <  2 )  THEN  GOTO  3700  ELSE  INPUT#2 ,  QUAL.IDS 

3580  IF  QUAL.IDS  <>  "QUALIFICATIONS : "  THEN  PRINT"Qual  da t 

a  no  t  f  ound" : 

3590  IF  QV(0)  <>  -1  THEN  ERASE  QV  DIM  QV C 1 5 > 

3400  FOR  I  «  l  TO  15:  IF  EOF<2>  THEN  GOTO  3700  ELSE  INPUT 
#2 ,  QV  < I )  :  NEXT 

3410  IF  EOF ( 2 )  THEN  GOTO  3700  ELSE  INPUT»2 ,  CUR. IDS 

3420  IF  CUR. IDS  <>  "CURRENCIES:"  THEN  PRINT"Cur  data  not 

found"  : 

3430  FOR  I  -  1  TO  10  IF  EOF<2>  THEN  GOTO  3700  ELSE  INPUT 
*2 ,  CUR . DT  <  I  )  .  NEXT 

3440  IF  EOF ( 2  >  THEN  GOTO  3700  ELSE  INPUTP2 ,  ACT  IDS,  MAX. 

N 

3450  IF  ACT.  IDS  <>  "ACTIVITIES  SCHEDULED  "  THEN  PR  I NT" Ac  t 

ivity  data  not  found": 

3440  FOR  N  -  1  TO  MAX  N 

3470  IF  EOF <  2  >  THEN  PRINT" EOF  before  MAX  N  MA 

X . N  N ; :  DUMMY*  ■  INPUTS < l ) :  GOTO  3700 
3480  LINE  INPUT82,  ACTS<N> 

3490  NEXT 

3700  CLOSE*2 

3710  RETURN 
3720 

3730  'dynamic  array  size  increase 

3740  IF  TMPS(0)  <>  CHR*<  2  5  5  >  THEN  ERASE  TMPS  :  DIM  TMP  S ( MA 

X  .  N) 

37  50  FOR  M  ■  1  TO  MAX . N :  TMPS CM)  ■  ACTS  CM):  NEXT 
3740  ERASE  ACTS:  DIM  ACTSCMAX.N  ♦  10) 

3770  FOR  M  «  1  TO  MAX  N:  ACTSCM)  »  TMPSCM)  NEXT 

3780  MAX  N  «  MAX  N  +  10 

3790  RETURN 

3800  .  ‘make  pilnn.dat  filenames 


3810  NUM*  »  STR*(NUM) 

3820  NUM*  a  MID*<NUM*,2> 

38  30  FILENAME*  a  "PIL"  +  NUM*  ♦  "  DAT" 

3  8  40  TMP.FIL*  ■  "PIL"  +  NUM*  +  ".***" 

3830  BAK.FIL*  ■  "PIL"  +  NUM*  +  “  8AK" 

3860  RETURN 
38  70 

38  80  'print  ill  pilot  names  to  screen.  .  . 

3890  PRINT  CLR* 

3900  FOR  I  »  1  TO  20 

3910  NUM  -  CVI <  P* ( I  , 1 )  >  :  L . NAME  $  -  P  *  <  I  , 2  >  INIT*  a  PS(I, 
3 )  :  RANKS  -  PS  < I  . 4 ) 

3920  PRINT  USING  "###";  NUM;.  PRINT  "  -  "  LEFT* ( L . NAME *, 1 
1)  INIT*  "  "  RANK*; 

39  30  NUM  -  CVI ( PS ( I +20  ,  1  )  )  :  L . NAME  *  «  P  S  <  I  ♦  2  0  ,  2  >  :  INIT*  « 
P* (  I  +  20  ,  3  )  :  RANK*  a  PS<I  +  20,4> 

3940  PRINT  TAB (27)  USING  "it#",  NUM,:  PRINT  "  -  "  LEFT* ( L 
NAME* ,11)  INIT*  "  "  RANK*; 

3930  NUM  *  CVI ( P* < I +40  ,  1 >  >  :  L  NAME  4  *  PS<I+40,2>:  INITS  » 
P* ( 1+40 , 3 ) :  RANK*  a  P*(I+40,4> 

3960  PRINT  TAB (S3)  USING  "it#";  NUM;:  PRINT  "  -  "  LEFTS (L 
NAMES, 11)  INIT*  "  "  RANK* 

3970  NEXT 

3980  RETURN 

3990 

4000  'get  pilot  names  from  key  file... 

4010  FOR  I  ■  1  TO  MAX. PIL. NUM 

4020  GET# 1 ,  I 

4030  P»<I,1)  a  N 1 S  :  P*(I,2)  a  N2*:  P*(I,3)  a  N3  S  : 

P* ( I , 4 )  a  N4  * 

4040  NEXT 

4030  RETURN 

4060 

4070  'open  and  field  def  files. . . 

4080  OPEN  "R",  1,  "PILNAM. DEF"  ,  27 

4090  FIELDil,  2  AS  N1 * ,  20  AS  N2 * ,  2  AS  N3 * ,  3  AS  N4 * 

4100  RETURN 

4110 

4120  OPEN  "R",  2,  "QUAL.DEF",  22 

4130  F I ELD#2 ,  2  AS  N2 1  * ,  20  AS  N22* 

4140  RETURN 

4130 

4160  OPEN  "R" ,  #2,  " CUREVNT  DEF" ,  26 

4170  F I ELD#2 ,  2  AS  N2 1  * ,  20  AS  N22S.  2  AS  N23$,  2  AS  N24* 

4180  RETURN 

4190 

4200  OPEN  "R",  2,  "ACT. DEF",  46 

4210  F I ELD#2 ,  2  AS  N2 1  $ ,  20  AS  N2 2  * ,  2  AS  N2 3  * ,  2  AS  N24* 

,  10  AS  N2  5*  ,  10  AS  N2 6  * 

4220  RETURN 

4230 

4240  'correct  all  name  area  variables 

4230  FOR  I  a  1  TO  3 :  ON  I  GOSUB  4270,  4360,  4400  NEXT.  R 

ETURN 
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4270  PRINT  MID . SCRN* 

4280  INPUT"Vhet  is  the  pilot's  list  nimt?  ",  L. NAME  $ 

4290  PRINT  MID . SCRN* 

4300  INPUT"Vha  t  is  his  first  nani?  ",  F  NAME* 

4310  PRINT  MID . SCRN* 

4320  LINE  INPUT"Enter  his  middle  initial(s),  'Jr',  etc, 
or  0  (zero)  for  none:  ",  MI* 

4330  IF  MI*  *  "0"  THEN  MIS  *  " " 

4340  RETURN 

4350 

4380  PRINT  MID . SCRN* 

4370  INPUT"Vhet  is  his  rank/arade?  ",  RANK* 

4380  RETURN 

4390 

4400  PRINT  MID . SCRN* 

4410  INPUT"Vhet  is  his  service  number  (SSAN)?  ",  SSANS 

4420  RETURN 

4430 

4440  'reed  in  Activity  codes  end  nemes,  essumes  def  file 

open  es  *2 . . . 

4450  PRINT" Select  the  desired  Activity  category" 

4480  PRINT"  1  for  non-duty  (leeve,  TDY ,  etc)" 

4470  PRINT"  2  for  non-flying  duty  Activities" 

4480  PRINT"  3  for  flying  Activities" 

4490  PRINT"Vhich  cetegory?  " , :  A  -  VAL ( INPUT* < l ) >  PRINT 
A 

4500  CP  »  (A  -  l  ) *  8  4 

4510  FOR  I  -  1  TO  21 

4520  GET#2,  I  ♦  CP 

4530  ACT. CODE  «  CVI <N2 1  *  > 

4540  ACT. NAME*  «  N22* 

4550  PRINT  USINC  "##*";  ACT. CODE;:  PRINT  "  -  "  ACT . NAME 

*  ; 

4580  CET02,  I  ♦  CP  ♦  2 1 

4570  ACT  . CODE  >  CVI < N2 1  *  > 

45  80  ACT  . NAME*  «  N2 2  * 

4590  PRINT  TAB ( 2  7 )  USING  "###";  ACT. CODE,:  PRINT  "  -  " 

ACT. NAME* ; 

4800  GET 4 2 ,  I  ♦  CP  ♦  42 

4810  ACT . CODE  ■  CVI(N21») 

4820  ACT. NAME*  -  N22* 

4830  PRINT  TAB (55)  USINC  "»*#";  ACT. CODE;:  PRINT  "  -  " 

ACT  NAME* 

4840  NEXT 

4850  PRINT:  PRINT"Vhich  activity  code?",:  INPUT"  ",  CODE* 

4860  RETURN 

4870 

4880  'other,  input  stert  end  end  time  offsets 

4890  PRINT  MID . SCRN* 

4700  PRINT"Enter  the  amount  of  time  (hrsmin)  needed  prio 
r  to  the  scheduled" 

4710  PRINT"ect i vi ty  time  <e  a  travel  time  to  a  meeting  o 
r  briefing  time)" 

4720  PRINT  PR  I NT" How  much  time?  COSUB  5  4  5  0 

4730  START  ■  DUR 
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4740  PRINT  MID  SCRN* 

47  30  P R I NT "Ent»t  the  mount  o£  time  for  the  activity,  inc 

1 ud»  debriefing, 

4740  PRINT"return  travel,  etc  ae  applicable" 

4770  PRINT:  PRINT"How  much  time?  GOSUB  3450 

4780  END . T  -  DUR 

4770  RETURN 

4800 

4810  'long  duration  activitiei--leave,  tdy,  etc.. 

4820  PRINT  MID. SCRN* 

4830  PR  INT"V/ha  t  is  the  ending  date  of  "  ACT. NAME* 

4840  GOSUB  5430 

4830  END. DATE  a  DATE 

4840  RETURN 

4870 

4880  'sort  activities... 

4890  SWAP.  a  -1:  LAST  *  MAX.N  -  1 

4900  WHILE  SWAP 

4910  SWAP  a  0 

4920  FOR  I  •  1  TO  LAST 

4930  SDl  »  VAL (MID* ( ACT* ( I >  ,  4  ,  3 >  >  :  ST1  »  VAL (MID* 

(ACT*  < I >  ,  11  ,  3)  ) 

4940  SD2  a  VAL (MI D* ( ACT* (1*1)  ,4,5))  :  ST2  ■  VAL(MI 

D* (ACT* ( I  +  l )  ,  1 1  ,  3  )  ) 

4950  IF  (SDl  >  SD2 )  OR  (SDl  «  SD2  AND  ST1  >  ST 2 ) 

THEN  GOSUB  3000 

4940  NEXT 

4970  LAST  a  LAST  -  1 

4980  WEND 

4990  RETURN 

3000  TMP*  a  ACT  * ( 1 ♦ 1 ) 

3010  ACT* ( I + 1 >  «  ACT* ( I ) 

3020  ACT* ( I)  a  TMP* 

5030  SWAP,  a  -1 

3040  RETURN 

3050 

3040  'conflict  check,  done  after  activities  sorted  by  sta 

r  t  .  .  . 

3070  LAST  a  MAX.N  -  1 

3080  FOR  I  a  1  TO  LAST 

3090  EDI  a  VAL (MID*  ( ACT* (  I )  ,  1  4  ,  5 >  )  :  ETl  a  VAL (MID 

* (ACT*  < I >  , 21  ,  5  )  ) 

3100  SD2  a  VAL ( MI D * ( ACT* (I*l>,4,35>:  ST 2  a  VAL(MI 

D* ( ACT* (  !♦  1  >  ,  1 1  ,  3  >  ) 

3  110 

3120  'conflict  is  TRUE  if  first  activity  ends  after  secon 
d  starts.. 

3130  IF  (EDI  <  SD2  >  OR  (EDI  a  SD2  AND  ETl  (  ST 2 ) 

THEN  CONFLICT  a  0  ELSE  CONFLICT  ■  -1 

3140  IF  CONFLICT  THEN  PRINT"Conf 1 i c t  found  with:" 

:  PRINT  ACT*  (  I  )  :  PRINT  ACT»(I*l> 

3130  NEXT 

5140  RETURN 
3  170 

3180  'time  of  day  validating  routine 


64 


31*0  NT  ■  0 

3200  TS  •  *•" 

3210  WHILE  7*  <>  " : "  AND  NT  <  LEN(TIMES) 

3220  NT  m  NT  *  1 

5230  TS  a  MIDI (TIME* , NT. 1 ) 

5240  VEND 

3230  IF  NT  .  0  GOTO  5390 

5240  IF  NT  »  LEN(TIMES)  THEN  NT  *  LEN (TIME * )  -  1  MIN  a  V 

AL<RIGHT* (TIMES , 2 ) )  ELSE  MIN  »  VAL ( RI GHTS < TIME S , LEN ( TIME S )  - 
NT)  ) 

3270  HRaVAL( LEFTS (TIMES , NT- l ) > 

3280  BAD  -  0 

3290  IF  MIN  (  0  OR  MIN  >  59  THEN  BAD  »  -l 

3300  IF  HR  (  0  OR  HR  >  24  THEN  BAD  a  -1 

3310  TIME  a  HR*  6  0  +  MIN 
3320  7S  ■  CHRS ( INT( HR/ 1 0 )  +  48  > 

5330  IS  a  CHRS ( ( HR  MOD  10J+48) 

5340  MS  a  CHRS < INTCMIN/ 1 0 ) +48 > 

3350  ES  *  CHRS ( (MIN  MOD  10>+48> 

3340  TIMES  a  TS  +  I*  +  MS  +  ES 

5370  IF  BAD  THEN  PRINT"Time  "  TIMES  "  not  understood,  pie 

see  re-enter:";:  INPUT"  ",  TIMES:  GOTO  3190 

5380  NT  -  0:  TS  *  "":  IS  a  "":  MS  a  "":  ES  a  BAD  a  0: 

HR  a  0 :  MIN  a  0 
3390  RETURN 

3400  '  _ 

3410  * 

5420  ---  This  routine  accepts  in  input  of  numbers  until  a 

colon  is  keyed , 

3430  '  then  Allows  only  two  digits  up  to  a  value  of 

40 

3440  • 

5430  CKS  a  "" 

3440  DIGITS  a  INPUT* ( 1 ) 

5470  IF  ASC ( D I  GITS ) ( 48  OR  ASC ( D I G ITS >  > 3 8  THEN  PRINT  "Nome 

rical  dioits  or  colon  (:)  only,  please  re-enter:  GOTO  34 

40 

5480  CKS  a  CKS  +  DIGITS 

3490  IF  RIGHT* ( CKS , 1 >  (>  ":"  THEN  3440 

3300  HR  a  VAL (LEFTS ( CKS , LEN( CKS )- 1 > ) 

3310  MINS  a  INPUTS ( 2 ) 

3320  IF  VAL (MINS )  >  40  THEN  PRINT  "Max  number  of  minutes 

is  40,  please  re-enter:  GOTO  5510 

3330  MIN  a  VAL ( MINS ) 

3540  CKS  a  CKS  +  MIMS 

3330  PRINT.  PRINT  "The  interval  entered  is  "  CKS  ",  is  t 
his  correct4" 

3340  PRINT  CS ; :  AS  a  INPUTS ( 1 > :  PRINT  AS 

3370  IF  A*  a  "l"  THEN  PRINT"Re-enter  interval  from  beginn 

ing :  " :  GOTO  3430 

3580  IF  A*  (>  "0"  THEN  PRINT  ES:  GOTO  5560 
5590  OUR  a  HR *40  +  MIN 

3400  RETURN 

3410  '  _ 

3420 
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3430  IF  MONTH *  (  0  )  <>  CHR*<253>  THEN  ERASE  MONTH * 

5440  DIM  MONTH*  <  12  > 

5450  MONTH*  < 1 >  -  " JAN- 

3440  MONTH*  (2)  »  ••FEB- 

3470  MONTH* < 3)  ■  "MAR- 

5480  MONTH* (4)  »  " APR- 

34  90  MONTH* (3)  «  "MAY" 

3700  MONTH* <41  »  "JUN" 

5710  MONTH* < 7)  »  "JUL" 

3720  MONTH* < 8)  ■  "AUG" 

3730  MONTH* (9)  «  "SEP" 

5740  MONTH* (10)  -  "OCT- 

37  50  MONTH*  < 1 1 )  »  “NOV" 

5  7  40  MONTH  *(12)  -  "DEC" 

3770 

37  80  IF  F I RST . DAY  <  0  1  -  0  THEN  ERASE  FIRST. DAY 

5790  DIM  FIRST. DAY< 121 

5800 

5810  'reset  FIRST. OAY<  3  ..  12)  if  correcting  a.  date... 

5820 

3830  FIRST. DAY < 1 1  «  1 

5840  FIRST. DAY<2>  -  32 

38  30  F I RST . DAY  <  3 1  *  4  0 

5840  F I RST . DAY ( 4 )  -91 

3  8  70  F I RST . DAY  <  3 )  -  12  1 

3  8  80  F I RST . DAY  <  4 )  «  152 

5890  F I RST . DAY ( 7 1  .  182 

5900  FIRST. DAY<8>  «  213 

59  10  F I RST . DAY  <  9 )  *  244 

3920  FIRST. DAY< 101  «  274 

3930  F I RST . DAY (111  -  303 

3940  FIRST  DAY<12>  ■  335 

5930 

5940  ' -  get  the  date  - 

3970 

3980  INPUT"Vhat  is  the  date  (Day  Month  Year)",  DATE* 

5990  IF  DATE*  -  "0"  THEN  DATE  »  0.  RETURN 

40  00 

4010  'put  the  date  chars  in  individual  variables. 

4020 

4030  IF  D*(0)  <>  CHR* (255)  THEN  ERASE  D$ 

4040  DIM  D* < LEN< DATE* > 1 

4050  FIRST. DLMTR  -  0 

4040 

4070  FOR  I  V  >  1  TO  LEN ( DATE  *  > 

4080  D*  < I  V)  ■  MID* (DATE* .  I  V , l > 

4090  IF  FIRST  DLMTR  <>  0  THEN  4180 

4100  ‘if  first  delimiter  not  set,  look  for  it;  allow  almo 

s  t 

4110  any  char  escept  letters  or  numbers  to  delimit. 

4120  D  •  ASC (Of (IV)) 

4130  IF  D  <  48  THEN  OLMT  •  -1 

4140  IF  (D  >  57  AND  D  <  45)  THEN  DLMT  -  -1 

4150  IF  (D  >  90  AND  D  <  94)  THEN  DLMT  -  -1 

4140  IF  DLMT  THEN  FIRST  DLMTR  -  I  V 


•4170  DLMT  -  0 

4180  NEXT 

419  0 

42  00  'tiiuat  ths  last  two  chars  arc  ths  vsar.  .  . 

42  10 

4220  YEAR  .  VAL < R I CHT* < DATE S , 2 > > 

4230 

4240  'find  ths  day  .  .  . 

4250  'if  a  dslimitsr  was  found  thsn  day  is  ths  valus 

4240  'bsfors  ths  dslimitsr,  othsrwiss  ths  day  is  sithsr 
4270  'ths  first  charactsr  or  ths  first  two  charactsrs  of 

4280  'ths  s t r i ng- -as  sums  ths  first  two  charactsrs  if  ths 

4290  ' sscond  charactsr  is  not  a  isttsr 

4300 

4310  IF  FIRST. DLMTR  THEN  DAY  •  VAL ( LEFTS < DATE *. F I RST  DLMT 

R  -  D)  ELSE  IF  ASC ( D  $ ( 2  > )  <  58  THEN  DAY  *  VAL ( LEFT* < DATE  * , 2 

) ) :  FIRST . DL 

MTR  -  2  ELSE  DAY  -  VAL < LEFT* ( DATE  I , 1 ) )  ;  FIRST. DLMTR  ■  1 
4320 

4330  'find  ths  month... 

4340  ‘just  look  at  thrss  charactsrs  past  ths  day  or  past 

4350  ths  first  dslimitsr 

4340  -  month  could  bs  a  numbsr  or  lsttsrs 

4370  -  convsrt  lowsr  eass  lsttsrs  to  uppsr 

4380 

4  3  9  0  MONTH  *  * " " 

4400  MON  NUM  •  0 

441 0  FOR  I . V  .  I  TO  3 

4420  IF  ASC<D!<Ft RST . DLMTR ♦ I.V)>  <  58  THEN  MON . NU 

M  .  -I 

4430  IF  ASC ( D* (FI RST . DLMTR* I . V > )  >  94  THEN  D*(FIR 

ST  .  DLMTR-*- 1  .  V )  »  CHR*  (ASC(D*  (  FIRST  .  DLMTR+I  V)  ) -32  > 

4440  MONTH*  •  MONTH*  ♦  D * < F I RST  DLMTR+ I  V > 

4450  NEXT 

4440 

4470  ‘MONTH*  is  now  a  string  of  numbs rs  or  lsttsrs, 

4480  MON. NUM  is  TRUE  if  it  is  numbs rs 

4490 

4500  IF  MON. NUM  THEN  MONTH. V AL C LEFT* < MONTH* , 2 >) .  GOTO  458 

0 

4510  FOR  IV  .  1  TO  12 

4520  FOR  J.V  •  I  TO  3 

4530  IF  MID* (MONTH* , J . V, 1 >  «  MID*CMONTH*< 

I  V) , J. V , 1 )  THEN  TEST  *  -1  ELSE  TEST  »  0 

4540  IF  NOT  TEST  GOTO  4570  '  ons  not  mat 

ching  is  snough 

4550  NEXT  J.V 

4540  IF  TEST  THEN  MONTH  ■  I  V  GOTO  4580:  '  found 

a  aateh 

4570  NEXT  I  V 

4580  IF  MONTH  <  1  OR  MONTH  >  12  THEN  INPUT"Month  not  unds 

r s t o od--sn t s r  ths  month  as  a  ons  or  two  digit  numbsr  <1  12> 

" ,  MONTH :  GO 
TO  4580 


67 

46  0  0  'MONTH  is  now  valid,  sot  MONTH*  it  raqd.  . 

66  10 

4420  IF  MON.NUM  THEN  MONTH*  -  MONTH »( MONTH > 

4630 

6440  ‘chtck  if  this  is  a  laap  yaar 

6650 

6460  IF  YEAR/4  a  I NT  <  YEAR / 4  >  THEN  LEAP  YEAR  a  -1  ELSE  LEA 

P . YEAR  *  0 

6470 

6680  'if  so  must  increment  first  day  valuss  aftsr 

6690  '  February  .  .  . 

4700 

4710  IF  LEAP-YEAR  THEN  FOR  IV  a  3  TO  12:  F I RST . DAY ( I . V > 

a  FIRST. DAY(I .V)  ♦  1:  NEXT 

4720 

67  30  'males  suri  ths  numb  a  r  of  days  is  valid  for  ths 
6740  '  month 

6750  eoaputs  max  days  in  month... 

6760  IF  MONTH  *  12  THEN  MAX  DAY*  a  "  31"  ELSE  MAX. DAY*  * 

STRS < FIRST. DAY (MONTH  ♦  1)  -  F I RST . DAY C MONTH > > 

6770  MAX. DAY*  a  M I D* < MAX . DAY  *  , 2 , 2 > 

6780  than  chack  ranga 

4790  IF  DAY  <  1  OR  DAY  >  VAL < MAX . DAY * )  THEN  PRINT  "Day  of 

month  not  unda r s t ood-- i npu t  day  as  a  numbar  <1. ."  MAX. DAY* 
INPUT" 

"  ,  DAY 
6800 

6810  'now  put  it  togathar  and  saa  if  corraet. . . 

6820 

4830  DAY*  •  STR*  <  DAY )  :  YR*  »  STR * ( YEAR )  :  DATE*  a  DAY*  ♦  " 
"  ♦  MONTH*  *  YR* 

6840  PR INT"Tha  data  antarad  is:  DATE* 

4850  PRINT:  PRINT  C» ; 

6860  A*  »  INPUT »  <  1 ) 

4870  IF  A*  -  "1"  THEN  GOTO  5830:  'try  again  .. 

6880  IF  A*  <>  "0"  THEN  PRINT  E»:  GOTO  4840 

4890 

6900  'data  is  valid  and  chaekad  corract,  maka  tha  julian 

4910  data  . . 

4920  '  julian  data  form  is  yaar  digit  *  1000  +  juli 

an  data 
69  30 

69  40  DATE  a  VAL < R I GHT* < STR * < YE AR >  , l  >  > *  1  0 0 0  ♦  FIRST  DAY(MO 

NTH)  ♦  DAY  -1 

4950 

6960  'rasat  all  variablas  not  naadad 

4970 

4980  ERASE  D* 

4990  YEAR  a  0:  MONTH  a  0.  DAY  -  0  MON  NUM  a  0 

7000  FIRST. DLMTR  a  0 :  A*  a  MAX  DAY*  »  '"' 

7010  DAY*  a  MONTH*  a  YR*  a  "" 

7020  RETURN 
7030 


10  0  ’**«  SHELL . SET  *  *************  a***** * ** *  ***********  * 

110  'program  dated  17  May  1963 

120 

130  ‘This  program  allows  entry  of  the  schedule  shell 

140  data  for  a  given  week 

150 

160  ‘variables  required: 

170  none 

180 

190  'returns. 

200  '  SHELLnn.DAT  files  updated  and  in  order 

210 

220  DEFINT  A-Z 

230  CLR*  «  CHR  *  <  2  6  >  :  DOWN*  a  CHR* (10):  ESC*  a  CHR* (27) 

240  MID. SCRN*  a  CLR*  «•  STRING* ( 6 ,  1 0  > 

250  UP*  a  CHR* (11):  MOV. LEFT*  a  CHR* (8):  MOV  RIGHT*  -  CH 

R*  <  12  ) 

260  HOME*  a  CHR  t  (  3  0  )  :  CLR.  LINE*  »  ESC*  ♦  "T*‘ 

270  C*  a  "Enter  0  if  correct,  1  to  change  it:  " 

280  E*  a  "Error,  enter  0  or  1  only,  try  again. . 

290 

300  MAE . PIL .NUM  a  60 

3  10  DIM  P * ( MAX  PIL. NUM , 4 ) 

320 

330  ‘get  pilot  names... 

340  GOSUB  3250 

350  GOSUB  3180 

360  CLOSE 

370 

380  PRINT  MID. SCRN*  »  Enter" 

390  PRINT"  0  to  quit,  all  done" 

400  PRINT"  1  to  add  a  new  shell  data  file" 

410  PRINT"  2  to  change  data  in  existing  data  fi 

le" 

420  PRINT"  3  to  delete  a  shell  data  file" 

430  PRINT"  Which  choice’  SEL  a  VAL ( INPUT* C 1 >) :  PRIN 

T  SEL 

440  IF  SEL  <  a  0  THEN  END  ELSE  IF  SEL  >  3  THEN  PRINT" E  r  ro 

r,  enter  a  number  0  to  3  only,  try  again...":  GOTO  430 
450  PRINT  MID. SCRN*  "Enter  the  week  starting  date  (Sunda 

y )  :  " 

460  GOSUB  4370 

47  0  VK . DATE  a  DATE:  WK . DATE  *  -  DATE* 

480  WK . NUM  a  (WK . DATE  MOD  1000>\7:  WK.NUM*  a  MID*(STR*(W 

K  NUM) , 2 ) 

490  FILENAME*  a  "SHELL"  *  WK.NUM*  ♦  "  DAT" 

500 

510  ON  SEL  COSUB  570,  1090,  1840 

520  GOTO  380 

530 

540  *  new  shell  data 

550 

560  'check  if  file  already  ixists. 

570  ON  ERROR  GOTO  590 

580  OPEN  "I",  1,  FILENAME* 


290  IF  ERR  «  23  THEN  RESUME  640 

600  PRINT  FILENAME*  "  •xists  on  this  disk,  confirm  you  w 

ant  to  ovirwri  ti  (destroy)  it" 

610  PRINT:  PRINT"Entsr  0  to  continue,  1  to  NOT  overwrite 

this  file:  " ; :  A*  -  INPUT* ( 1 ) .  PRINT  A* 

620  IF  A*  a  "1"  GOTO  380 

630  IF  A*  <>  "0"  THEN  PRINT  ES:  GOTO  610 

640  ON  ERROR  GOTO  0 

620  CLOSE 

660 

670  'open  shell  date  file  as  #1  .  .  . 

680  GOSUB  2900 

690 

700  'open  activity  definiton  file  as  #2  .  .  . 

710  GOSUB  3290 

720 

730  A  -  1 :  N  -  0 :  MAX  N  -  10 

740  WHILE  A 

720  N  -  N  f  1 

760  PRINT  MID . SCRN* ; 

770  GOSUB  2280 

780 

790  PRINT" Enter" 

800  PRINT"  0  if  entries  complete" 

810  PRINT"  1  if  more  activities  to  enter" 

820  PRINT"Vhich  one?  A  a  VAL ( INPUTS C 1 > > :  PRI 

NT  A 

830  IF  A  <  0  OR  A  >  1  THEN  PRINT  E*;:  GOTO  820 

840  'if  greater  than  dimension  of  variable,  then  expand 

it... 

820  IF  N  >a  MAX . N  THEN  GOSUB  2970 

860  ACT* (N)  a  ACT.LN* 

870  VEND .  'activity  entry  loop 

880  'save  max  number  activites. . . 

890  MAX . N  a  N 

900 

910  'entries  complete,  sort  them. . . 

920  GOSUB  3710 

930  'print  to  file... 

940 

920  FOR  I  a  1  TO  MAX  N 

960  LSET  N9  *  a  ACT*  < I > 

970  'make  first  word  equal  to  record  number  . . 

980  LSET  Nit  -  MK I  *  < I > 

990  PUT# 1 ,  I 

1000  NEXT 

1010  'last  entry  is  all  222  chars... 

1020  LSET  N9  *  -  STRING* (  30  ,  252  )  :  LSET  N2 »  a  MKI*(32767): 

PUT#  1 

1030  CLOSE 

1040  RETURN 
1050 
1060 

10  70  '  ch a  ng  e_o r_a  d  d_t o_e  x i s  t i ng_she ll__data_fil e  s 


1090  PRINT  MID  SCRN*  UK. DATE*  "  -  "  FILENAME* 

1100  PRINT:  PRINT"  Enter" 

1110  PRINT"  0  if  no  ion  ehangts  or  additions,  a 

1 l  dons" 

1120  PRINT"  1  to  add  activity  data" 

1130  PRINT"  2  to  change  activity  data" 

1140  PRINT"  3  to  dslsts  activity  data" 

1150  PRINT"  Which  choice?  " ; :  A  -  VAL ( INPUTS ( 1 )> :  PRINT 

A 

116  0 

1170  IF  A  -  0  THEN  RETURN 

1180  IF  A  >  3  THEN  PRINT  E*  GOTO  1150 

1190 

1200  'open  shell  data  file  and  act. code  file... 

1210  GOSUB  2900:  COSUB  3290 

1220  A.T  -  0 :  N  a  0 

1230  WHILE  AT  <>  32767 

1240  N  a  N  +  1 

1250  GET* 1 ,  N:  SEQ.NUM  a  CVKN1*):  A.T  »  CVI<N2*>:  IF  (N 
<>  SEQ.NUM)  AND  (N  <>  -1)  THEN  PRINT" Error  in  "  FILENAME*  " 
record"  N  "n 

ot  equal  to  sequence  number"  SEQ  NUM 

1260  WEND 

1270  MAX  N  a  N 

1280 

1290  ON  A  GOSUB  1330,  1670,  1840 

1300  CLOSE:  GOTO  1090 

13  10 

1320  'add  a  new  activity  to  shell  data  file.. 

1330  N  «  MAX  N  GOSUB  2280:  MAX  N  •  N 

1340  DATA  TIME  a  -1 

1350  WHILE  DATA. TIME  <a  ACT . SCHED  TIME 
1360  K  a  K  a  1 

1370  GET* 1 ,  K:  DATA. TIME  a  CV I (N2 » ) 

1380  WEND 

1390  ' *k  is  first  record  >  than  activity  to  insert.  . 

1400  MEM  a  FRE<0>:  IF  MEM  <  (MAX  N  -  X  +  1>*32  THEN  PRINT 

"Not  enough  memory,  moving  one  record  at  a  time":  GOTO  1 5 
40 

1410  IF  ACT* ( 0 )  <>  CHR* (255)  THEN  ERASE  ACT*  DIM  ACT* ( MA 

X  N  ♦  1  -  X) 

1420  FOR  M  a  K  TO  MAX . N 

1430  GET* 1 ,  M 

1440  ACT* ( M  -  X  ♦  1  >  ■  N9 » 

1450  NEXT 

1  460  LSET  N9  *  a  ACT . LN*  :  LSET  N1 *  a  MKI*(K> 

1470  PUT* l,  X 

1480  FOR  M  a  X  ♦  1  TO  MAX . N  ♦  1 

1490  LSET  N9  *  a  ACT* (M  -  X) 

1500  LSET  Nit  a  MX  I  * (M> 

1510  PUT*!,  M 

1520  NEXT 

1530  GOTO  1640 

1540  GET* 1 ,  X:  TMPt*  a  N9 * 

1550  LSET  N9  *  a  ACT . LN*  LSET  Ni*  a  MXI*(X) 
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1540  PUT# 1 ,  K 
1570  FOR  M  »  K  +  1  TO  MAX.N 
1580  GET# 1 ,  M:  TMP2S  -  N9  4 

1590  LSET  N94  a  TMP14:  LSET  N1  4  «  M 

1400  PUT# 1 ,  M 

1410  TMP14  -  TMP24 

1420  NEXT 

1  430  LSET  N  9  4  a  TMP 1 4  :  PUT41 
1440  MAX . N  *  MAX . N  +  1 
1450  RETURN 
1440 

1470  PRINT  MID.SCRN4  "Enter  the  sequence  number  to  change 
or  (?  (sr  help) 

1480  INPUT"  ",  A 4 

1490  IF  A4  a  »?••  THEN  GOSUB  1  970  ELSE  N  *  VAL(A4) 

1700  IF  N  <  1  OR  N  >  MAX  .  M  THEN  PRINT’*0ut  of  range...":  G 

OSUB  1970 

1710  'good  sequence  number  entered  . . 

1720  GET# 1 ,  N 

1730  SEQ.NUM  a  CVI<N14>:  ACT . SCHED . TIME  *  CVI(N24>:  ACT . C 

ODE  *  ASC  <  N3  4  )  :  P I  L  .  NUM  ■  ASC(N44>:  ACT  ST  TIME  a  CVKN54)  : 
ACT. END  TIME 

*  CVI (N4  4 )  :  ACT . NAME  4  .  N7 4 

1740  PRINT  MID. SC RN 4  SEQ.NUM,  ( ACT . SCHED . TIME  MOD  1  440  ); 
ACT. NAME  4 

1750  PRINT" En  ter  0  if  this  is  the  correct  activity,  1  to 

search  further: 

1740  A  a  VAL ( INPUT4 ( 1 ) ) :  PRINT  A 

1770  IF  A  a  1  THEN  GOTO  1  470  ELSE  IF  A  <>  0  THEN  PRINT  E4 

.  GOTO  1750 

1780 

1790  'add  activity  entry... 

1800  A  a  1 

1810  GOSUB  2280 

1820  RETURN 
1830 

18  40  PR INT" Oe 1 e  t  e  not  written  yet...".  RETURN 

1850 

18  40  ' _ de let  e_comp lete_shell_data_fil e 

1870 

1880  PRINT  MID  SCRN4  VK . DATE  4  F 1 LENAME  4 

1890  PRINT  Enter  0  to  delete  this  file,  1  to  abort  delete 

action" 

1900  INPUT"Which  one";  D 

1910  IF  D  <>  0  THEN  PR INT" E x i t i ng  delete  mode,  file  NOT  d 
eleted...":  FOR  I  a  1  TO  1000:  NEXT:  GOTO  1920 
1920  RETURN 
1930 

1940  ' _ subroutines. _ 

1950 

1940  'display  shell  file  20  lines  at  a  time 

1970  M  a  1 :  A  T  a  0 

1980  WHILE  AT  <>  32747 

1990  GET# 1 ,  M:  S.N  a  CVI<N14>  A  T  a  CVI(N24)  AC  a  ASCC 

N3  4  >  :  P  N  a  ASC  ( N4  4  )  :  S.T  a  CVI(N54)  E  T  a  CV 1  i  N4  4  A  N4  a 


N7  S 

2000  IF  AT  <>  3274?  THEN  PRINT  S  N  AT  AC  P.N  ST  E.T  A 

.  NS 

2010  M  a  M  +  1 

2020  IF  M  MOD  20  »  1  THEN  PRINT"Press  <  RETURN)  to  csntinu 

•  or  itquinct  number  if  found:";:  INPUT"  ",  AS:  IF  AS  »  ""  T 
HEN  GOTO  204 

0  ELSE  N  «  V  AL  <  A  $  >  :  GOTO  20S0 
2030  WEND 

2040  PRINT" At  tnd  of  shell  data  fill  for  "  WK. DATES  ",  " 

FILENAMES:  PRINT:  PRINT"Press  <  RETURN)  to  start  o«ir  or  nqu 
met  numbar 

found:";:  INPUT"  ",  AS:  IF  AS  a  ""  THEN  GOTO  1970  ELSE  N  »  V 
AL  <  A  S )  :  GOTO  20  3  0 

2050  RETURN 

2040  PRINT  UPS  CLR. LINES;:  GOTO  1980 

2070 

2080  'got  and  confirm  pilot  number. . 

2090  PRINT  MID  SCRNS ; 

2100  PRINT"Enter  the  left  name  or  pilot  number:";:  INPUT" 
" ,  ANSWERS 

2110  IF  ASC< LEFTS (ANSWERS , 1 > )  <  38  THEN  NUM  »  VAL  < ANSWERS 

):  THIS. NUM  -  -1  ELSE  NUM  «  0:  L. NAMES  *  ANSWERS 
2120  ' look  for  name  match. . . 

2130  WHILE  NUM  <  MAX  P I L  NUM  AND  NOT  THIS  NUM 

2140  NUM  a  NUM  ♦  1 

2130  IF  L. NAMES  a  LEFTS < PS C NUM . 2 ) , LEN ( L  NAME S > >  T 

HEN  THIS. NUM  a  -1  ELSE  THIS  NUM  •  0 
2140  WEND 

2170  IF  THIS. NUM  a  0  THEN  GOSU8  3040  PRINT  PRINT"Enter 

pilot  number.  ";:  INPUT  NUM 

2180  IF  NUM  a  0  THEN  GOTO  2230 

2190  PRINT  MID . SCRNS  CVI ( P S ( NUM , 1 > >  "  -  "  PS(NUM,2)  PS(NU 

M , 3  >  “  "  P  S ( NUM , 4  > 

2200  PRINT"Enter  0  if  thi*  the  correct  ,~ntry,  1  if  not  co 
rrect : " ; :  THIS  NUM  a  VAL < INPUTS ( l > )  PRINT  THIS  NUM 
2210  IF  THIS. NUM  a  1  THEN  THIS  NUM  a  0  GOTO  2170 

2220  IF  THIS  NUM  <>  0  THEN  PRINT" Error,  enter  0  or  l  only 

.  .  .  "  :  GOTO  2190 

2230  'have  correct  number  . . 

2240  PIL.NUM  a  NUM 

2230  RETURN 

2240 

2270  'input  a  new  activity.  .  . 

2280  PRINT"Enter  activity  code  <?  for  help)  ", 

2290  INPUT"  ",  CODES 

2300  IF  CODES  a  THEN  GOSUB  3340  ELSE  IF  CODES  a  "0"  T 

HEN  GOTO  2780 

2310  ACT  . CODE  a  VAL  <  CODE  S ) 

2320  IF  ACT  CODE  <  l  OR  ACT  CODE  >  233  THEN  PRINT"Entry  i 

s  out  of  range .  "  GOSUB  3340  GOTO  2310 

2330  IF  (ACT  CODE  AND  43)  a  43  THEN  OTHER  a  -1  ELSE  OTHER 

a  0 

2340  IF  OTHER  THEN  INPUT"What  is  the  activity  name’  ",  AC 

T  NAMES:  GOTO  2400 
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2  3  S  0  GET#  2 ,  ACT  . CODE 

2340  TRIM*  •  N2  2  $ 

2370  GOSUB  2810 

2380  ACT  NAME*  »  TRIMS 

23  90 

2400  PRINT  MID . SCRN* ; 

2410  PRINT"  Enter  the  day  "  ACT. NAME*  "  occur*  on:" 

2420  PRINT"  1  -  Sunday" 

2430  PRINT"  2  -  Monday" 

2440  PRINT"  3  -  Tuesday"  . 

2430  PRINT"  4  -  Vtdntsday" 

2460  PRINT"  5  -  Thursday" 

2470  PRINT"  6  -  Friday" 

2480  PRINT"  7  -  Saturday" 

2490  PRINT"  Which  day?"; 

2500  D  -  VAL < INPUT* < 1 ) > 

2510  IF  D  <  1  OR  D  >  7  THEN  PRINT"Error,  enter  a  nunbtr  l 

to  7  only,  try  again...".  G  OTO  2  4  9  0 
2320  PRINT  MID. SCRN*: 

2530  PRINT"Enter  th*  schadulad  time: 

2540  INPUT  TIMES:  GOSUB  3920 

2530  ACT. SCHED .TIME  *  <D-1>*1440  ♦  TIME 
2540  IF  OTHER  THEN  GOSUB  3380:  GOTO  2460 

2570  'not  other.. 

2580  PRINT  MID . SCRN* ; 

2390  PRINT"  Enter:" 

2600  PRINT"  0  if  standard  time  offsets  apply" 

2610  PRINT"  1  to  change  them" 

2420  PRINT"  Which  choice?  A*  «  INPUT* t 1 > :  PRINT  A* 

2630  IF  AS  ■  "l"  THEN  GOSUB  3580:  GOTO  2660 

2640  IF  AS  <>  "0"  THEN  PRINT  E*:  GOTO  2590 

2  6  30  START  «  CVXN23S):  END  .  T  »  CVXN24*) 

2440  ACT. ST. TIME  »  ACT . SCHED . TI ME  -  START:  ACT  END  TIME  » 
ACT . SCHED  TIME  ♦  END . T 

2670  PRINT  MID. SCRN*  "Is  a  pilot  already  assigned  to  this 

activity?" 

2680  PRINT"Enter  0  if  no  pilot  assigned  or  the  pilot  name 
or  number  to  specify  which  pilot.  "  ; 

2690  INPUT  AS 

2700  IF  A*  <>  "0"  THEN  ANSWER*  *  AS:  GOSUB  2110  ELSE  PIL. 


NUM  •  253 

2710  ACT  .LN*  -  STRING  * C 3 0 , 0 > 

2720  MID* ( ACT. LN* , 3 , 2 )  *  MKIXACT  SCHED  TIME) 

2730  MI D* < ACT. LN* . 5 , l )  ■  CHRXACT  CODE) 

2740  MID* ( ACT  LN* , 6 , 1 >  ■  CHRXPIL  NUM) 

2730  MID* ( ACT. LN*  , 7  , 2 )  *  MX  I » ( ACT . ST . TIME ) 

2740  MID* < ACT . LN* , 9 , 2 )  ■  MKI *< ACT . END . TIME > 

2770  MID* < ACT. LN* , 1 1 )  -  ACT  NAME* 

2780  RETURN 
2790 

2800  'trim  trailing  spaces... 

2810  L  ■  LENCTRIM*)  ♦  1:  L.CHRS  -  CHR*<0) 

2820  WHILE  ASC(L.CHRS)  <  33 

2830  L  «  L  -  1 

2840  L.CHR*  «  MID* (TRIM* , L , l ) 
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v*  ,  r  .  v-  v 7  * 7  ^v1  *  *  v  *  .  r 


2850 

WEND 

2860 

TRIMS 

■  LEFTS (TRIMS , L ) 

2370  RE 

TURN 

2880 

1 

2890 

1  o  p  an 

and  field  shall  data 

file.  . 

2900 

OPEN  " 

R",  1.  FILENAMES,  30 

2910 

l 

saq  nun  act.schad. 

time  act. coda  pil  nun  act 

. st . t in*  set . tnd .tins  act. name 

2920  F I  ELD#  1  ,  2  AS  N1  S  ,  2  AS  N2  $  ,  1  AS  N3  S  ,  1  AS  N4  S  ,  2  A 

S  NS  S  ,  2  AS  N6 S ,  20  AS  N7S 

2930  FI ELD#1  ,  30  AS  N9  S 

2940  RETURN 
2  9  5  0 

2960  'dynamic  array  sixt  incrsast . . . 

2970  MEM  a  FRE  <  0 )  :  IF  MEM  <  3  20  THEN  PR INT"No  t  tnough  fra 
•  memo ry,  save  this  to  disk  and  continue... MEM  a  - l :  RETU 
RN 


2980 

IF  TMPS(0)  <>  CHR  S (  2  5  5  >  THEN  ERASE  TMP  S  :  DIM 

TMP  S (MA 

X  N) 

2990 

FOR  M  .  1  TO  MAX . N :  TMPS(M)  a  ACTS(M): 

NEXT 

30  00 

ERASE  ACTS:  DIM  ACTS (MAX  N  ♦  10) 

30  10 

FOR  M  »  1  TO  MAX . N :  ACTS(M)  *  TMPS(M): 

NEXT 

3020 

MAX  N  «  MAX  .  N  10 

30  30 

RETURN 

3040 

« 

3050 

'print  all  pilot  names  to  screen 

3060 

PRINT  CLRS 

3070 

FOR  I  i  1  TO  20 

3080 

NUM  «  CVI (PS ( I , l ) > :  L. NAMES  *  PS 

(1,2): 

INITS 

a  PS  (  I  , 

3 )  :  RANKS  a  PS  ( I  ,  4  > 

3090 

PRINT  USING  "###";  NUM;:  PRINT  " 

-  "  LEFTS (L. 

NAME  S  ,  1 

1)  INITS 

"  "  RANKS; 

3100 

HUM  a  CVI<PS<I+20.1>>:  L  NAMES  a 

PS  (  I  ♦ 

20,2)  : 

INITS  a 

PS <1*2 0,3):  RANKS  .  PS (1*20, 4) 

3110 

PRINT  TAB(  27)  USING  NUM,: 

PRINT 

•  »  _  M 

LEFTS ( L 

NAMES, 11)  INITS  "  "  RANKS; 

3120 

NUM  a  CV I.PS(i+40,i>):  L . NAME S  a 

PS ( I  +  40  ,  2  >  : 

INITS  a 

PS  < 1+40 

,  3  )  RANKS  a  PS  <  1  +  40’,  4  > 

31  3C 

PRINT  TAB  (55)  USING  "MS"  ;  NUM;: 

PRINT 

tt  IS 

LEFTS ( L 

NAME  S  ,  1 

l)  INITS  "  "  RANKS 

3140 

.IE  XT 

3  150 

RETURN 

3160 

1 

31  70 

'gat  pilot  names  from  key  file 

3  180 

FOR  I  a  l  TO  MAX. PIL  NUM 

3190 

GET# 1 ,  I 

3200 

PS ( I  ,  1 )  a  N1 S  PS (  I  ,  2  )  a 

N2  S 

PS  (  I  ,  3  ) 

a  N3S  : 

PS  (  I  .  4  ) 

a  N4  S 

3210 

NEXT 

3220 

RETURN 

3230 

1 

32  40 

'open  and  field  daf  filas 

3250 

OPEN  "R",  1,  "PILNAM  DEF"  ,  2  7 

32  60 

F I  ELD# 1  ,  2  AS  N1S,  20  AS  N2 S ,  2 

AS  N3  S 

,  3  AS 

N4  S 

32  70 

RETURN 

3280 

32  90  OPEN  "R",  2,  "ACT. DBF"  ,  46 

3300  F I ELD#2 ,  2  AS  N2 1  *  ,  20  AS  N2 2  $  ,  2  AS  N2  3  S  ,  2  AS  N24S 

,  10  AS  N2  5  $  ,  10  AS  N2  6  $ 

3310  RETURN 

3320 

3330  'read  in  activity  codas  and  namas,  assumes  def  tile 

open  as  #2 . . 

3340  PRINT"S*l#ct  tha  desired  activity  category" 

3350  PRINT"  1  for  non-duty  (leave,  TDY ,  ate)" 

3360  PRINT"  2  for  non-flying  duty  activities" 

3370  PRINT"  3  for  flying  activities" 

3380  PR INT"Wh i ch  category'  " ; :  A  »  VAL ( INPUT* C 1 )) :  PRINT 

A 

3390  GP  »  (A  -  1 ) *  6  4 

3400  FOR  I  *  t  TO  21 

3410  GET#2,  I  *  GP 

3420  ACT. CODE  *  CVI(N21S) 

34  30  ACT  NAME*  a  N2 2  * 

3440  PRINT  USING  "#»#";  ACT . CODE , :  PRINT  "  -  "  ACT . NAME 

»  ; 

3450  GET»2,  I  ♦  GP  +  2 1 

3  4  60  ACT  .  CODE  -  CVKN21*) 

3  4  70  ACT. NAME*  *  N2 2  * 

3480  PRINT  TAB (27)  USING  "#**";  ACT  CODE , .  PRINT  "  -  " 

ACT. NAME* ; 

3490  GET*2  ,  I  ♦  GP  t>  42 

3500  ACT. CODE  -  CVI<N21S> 

35  10  ACT  NAME*  «  N2 2  * 

3520  PRINT  TAB (55)  USING  " *# # " ;  ACT. CODE,:  PRINT  "  -  " 

ACT  NAME* 

3530  NEXT 

3540  PRINT:  PRINT"Which  activity  coda?";:  INPUT"  ",  CODE* 

3550  RETURN 

35  60 

3570  'other,  input  start  and  and  t ime  offsets. 

3580  PRINT  MID  SCRN*; 

3590  PRINT"Enter  tha  amount  of  tima  (hrsnin)  needed  prio 

r  to  the  scheduled" 

36  00  PR  I NT" ac t i v i t y  tima  (e  g  travel  time  to  a  meeting  o 

r  briefing  time)" 

3610  PRINT  PR  I NT" How  much  time?  GOSUB  4190 

3620  START  -  DUR 

3630  PRINT  MID  SCRN* , 

3640  PRINT"Enter  tha  amount  of  time  for  the  activity,  inc 
lude  debriefing,  " 

3  6  50  PRINT" re  turn  travel,  etc  as  applicable" 

3660  PRINT:  PRINT"How  much  tima?  ",:  GOSUB  4190 

3670  END  T  -  DUR 

3680  RETURN 

3  690 

3700  'sort  activities 

3710  SWAP  «  -1:  LAST  ■  MAX . N  -  1 

3720  PRINT  MID . SCRN*  "Sorting", 

3730  WHILE  SWAP 
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3  7  4  Q  SWAP  .  a  0 

3730  FOR  !  .  t  TO  LAST 

3  7  4  0  A.T1  »  CVI (MIDS ( ACTS < I )  , 3  ,  2 >  ) 

3770  A  T2  a  CVI (MIDS (ACT* ( I ♦ 1 )  , 3  ,2 >  ) 

3780  IF  A.Tl  >  A.T2  THEN  GOSUE  3840 

3790  NEXT 

3800  LAST  a  LAST  -  1 

3810  PRINT 

3820  VEND 

3830  RETURN 

3840  PRINT" . " ; 

3830  TMPS  •  ACTXI+l) 

3840  ACTS (  I  4- 1  )  >  ACT  S  (  I  ) 

3870  ACTS ( I )  a  TMPS 

3880  SWAP,  a  -1 

3890  RETURN 

39  00 

3910  'time  o I  day  validating  routine.. 

3920  NT  a  0 

3930  TS  a  "" 

3940  WHILE  TS  <>  AND  NT  <  LEN(TIMES) 

3950  NT  a  NT  *  1 

3940  TS  a  MIDS (TIMES , NT , l ) 

3970  WEND 

3980  IF  NT  a  0  GOTO  4120 

3990  IF  NT  a  LEN(TIMES)  THEN  NT  a  LEN(TIMES)  -  1:  MIN  a  V 

AL(RIGHTS (TIMES ,2) )  ELSE  MIN  a  VAL ( R I GHTS ( TI ME S , L EN ( TIME S >  - 

NT)  ) 

4000  HR-VAL( LEFTS (TIMES .NT-l > ) 

4010  BAD  a  0 

4020  IF  MIN  <  0  OR  MIN  >  59  THEN  BAD  «  -l 

4030  IF  HR  <  0  OR  HR  >  24  THEN  BAD  -  -1 

40  40  TIME  a  HR*  4  0  ♦  MIN 

4030  TS  a  CHRS  (  HR  \  ljQ  +  4  8  > 

40  4  0  IS  a  CHRS  ((HR  MOD  10)4-4  8) 

40  70  MS  a  CHRS  (MIN\ 1  0  4- 4  8  > 

40  8  0  E  $  -  CHRS  ((MIN  MOD  10)4-48) 

4090  TIMES  a  TS  ♦  IS  4-  MS  4-  ES 

4100  IF  BAD  THEN  PR  I NT"Ti me  "  TIMES  "  not  understood,  pie 

ase  re-enter:";:  INPUT"  ",  TIMES:  GOTO  3920 

4110  NT  a  0:  TS  a  IS  a  "":  MS  a  "":  ES  a  " " ;  BAD  a  0. 

HR  a  0  MIN  a  0 
4120  RETURN 

41  30 
4140 
4130 
4140 
4170 

4  180 
4190 
4200 

42  10 
r  i  ca  1 
00 

42  20 


---  This  routine  accepts  an  input  of  numbers  until 
a  colon  is  keyed,  then  allows  only  two 
digits  up  to  a  value  of  40 

CXS  a  "" 

DIGITS  a  INPUTS (1 ) 

IF  ASC (DIGITS) <48  OR  ASC ( D I G ITS > > 3 8  THEN  PRINT  "Nume 
digits  or  colon  (:>  only,  please  re-enter  GOTO  42 

CKS  a  CXS  4-  DIGITS 


.V.V.' 


ek.  LkfcjAy 


\4' 


42  3  0  IF  RI  GHTS  !  CKS  ,  1  )  <>  ••  :  "  THEN  42  0  0 

4240  HR  «  VAL! LEFT* ( CKS , LEN( CKS ) -l > > 
4230  MINS  *  INPUT S  <  2 ) 

4260  IF  VAL  <MINS )  >  60  THEN  PRINT  "Max 

is  60,  please  re -enter.  "  GOTO  4230 
4270  MIN  a  VAL (MINS ) 

4280  CKS  a  CKS  ♦  MINS 

4290  PRINT:  PRINT  "The  interval  entere 


"Max  number 


mi nu  t  e  s 


interval  entered 


his  correct?" 


4300 
43  10 
ing  : 
4320 
4330 
4340 


4360 

4370 

4380 

4390 

4400 

44  10 
4420 
4430 
4440 
4430 
4460 
4470 
4480 
4490 
4500 

45  10 
43  20 
4330 
4540 
43  50 
4360 
43  70 
4380 
4390 
4600 

46  10 
4620 
4630 
4640 
4630 
4660 
4670 
4680 
4690 
4700 

47  10 
47  20 
4730 
4740 


PRINT  CS;:  AS  a  INPUTS! 1):  PRINT  AS 

IF  AS  -  "1"  THEN  PRINT" Re- ent  er  interval  from  beginn 
GOTO  4190 

IF  AS  <>  "0"  THEN  PRINT  ES:  GOTO  4300 
DUR  *  HR*  6  0  ♦  MIN 
RETURN 


IF  MONTHS (0)  <> 

DIM  MONTHS  !  1  2  ) 


CHR S  !  2  5  3  )  THEN  ERASE  MONTHS 


MONTHS  <  1 > 
MONTHS ( 2  ) 
MONTHS  <  3 ) 
MONTH  S  !  4 ) 
MONTH  S  I  3  ) 
MONTHS  <  6 ) 
MONTH  S  !  7  ) 
MONTHS ( 8 ) 
MONTHS ( 9  ) 
MONTHS (  10  > 
MONTHS (11) 
MONTHS! 12) 


"JAN" 

"FEB" 

"MAR" 

"APR" 

"MAY" 

"  JUN" 

"  JUL" 
"AUG" 
"SEP" 

>  "OCT" 
"NOV" 

:  "DEC" 


IF  FIRST. DAY! 0)  *  I 

DIM  FIRST. DAY! 12 ) 

I 

'reset  FIRST. DAY!3 


THEN  ERASE  FIRST 


if  correcting 


date 


FIRST. 

FIRST . 

FIRST 

FIRST. 

FIRST 

FIRST. 

FIRST 

FIRST. 

FIRST. 

FIRST . 

FIRST 

FIRST. 


DAY!!) 
DAY ! 2  > 
DAY! 3) 
DAY! 4) 
DAY! 3) 
DAY  <  6  ) 
DAY! 7) 
DAY!  8)  : 
DAY! 9)  ; 
DAY!  10  > 
DAY!  1  1  ) 
DAY! 12 ) 


1  ---  get  tl 

I 

INPUT" Vha t 
IF  DATES  - 


-  1 

*  32 

a  6  0 

a  9  1 
a  12  1 
a  152 
a  18  2 

-  213 
a  244 
a  274 
a  305 
a  333 

date - 


i a  the  date  <Day  Month  Year)", 
"0"  THEN  DATE  a  0:  RETURN 


DATES 
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4730  'put  the  date  chars  in  individual  variables... 

4740 

4770  IF  D*<0)  <>  CHR $(235)  THEN  ERASE  D* 

4700  DIM  D* ( LEN< DATE* > > 

4790  FIRST. DLMTR  -  0 

4800 

4810  FOR  I  V.  1  TO  LEN ( DATE  * ) 

4820  D*  <  I  .  V )  -  MID* (DATE* , I  . V , 1 > 

4830  IF  FIRST  DLMTR  <>  0  THEN  4930 

4840  'it  first  delimiter  not  set,  look  for  it;  allow 

4850  'almost  any  char  except  letters  or  numbers  to 

4840  'del imi t . . . 

4870  D  •  ASC(DXI.V)) 

4880  IF  D  <  48  THEN  DLMT  «  -1 

4890  IF  <  D  >  3  7  AND  D  <  43)  THEN  DLMT  »  -1 

4900  IF  <D  >  90  AND  D  <  94)  THEN  DLMT  «  -1 

4910  IF  DLMT  THEN  FIRST. DLMTR  »  IV 

4920  DLMT  *  0 

4930  NEXT 

4940 

4930  ‘assume  the  last  two  chars  are  the  year. 

4940 

4970  YEAR  ■  VAL ( R I GHT* < DATE  *  , 2 >  ) 

4980 

4990  ‘find  the  day 

3000  'if  a  delimiter  was  found  then  day  is  the  value 

5010  'before  the  delimiter,  otherwise  the  day  is  either 

3020  ‘the  first  character  or  the  first  two  characters  of 

5030  'the  «ttinq-*as*dm«  the  first  two  characters  if  the 

3040  'second  character  is  not  a  letter 

5030 

3040  IF  FIRST. DLMTR  THEN  DAY  -  VAL ( LEFT* < DATE *, F I RST  DLMT 

R  -  1>>  ELSE  IF  ASC ( 0 1  <  2 )  >  <  38  THEN  DAY  *  VAL ( L E FT* ( DATE  *  , 2 

) ) .  FIRST. DL 

WTR  »  2  ELSE  DAY  ■  VAL ( LEFT* ( DATE* , 1 >> :  FIRST  DLMTR  -  1 
50  70 

3080  'find  the  month. 

5090  'just  look  at  three  characters  past  the  day  or  past 

3100  'the  first  delimiter 

5110  -  month  could  be  a  number  or  letters 

3120  -  convert  lower  case  letters  to  upper 

3130 

3140  MONTH*-"" 

3130  MON.NVM  *  0 

3 140  FOR  I . V  «  1  TO  3 

5170  IF  ASC <D* (FIRST  DLMTRfI .V) >  <  38  THEN  MON  NU 

M  -  -l 

3180  IF  ASC<D* < FIRST. DLMTR* I . V) >  >  94  THEN  D»(FIR 

ST . DLMTR+I  . V)  «  CHR*  <ASC<D<<FI RST . DLMTR* I  V>)-32> 

3190  MONTH*  «  MONTH*  ♦  D* < F I RST  DLMTR* I . V ) 

3200  NEXT 

32  10 

3220  'MONTH*  is  now  a  string  of  numbers  or  letters, 

3230  '  MON.NUM  is  TRUE  if  it  is  numbers 

3240 


5250  IF  MON  NUM  THEN  MONTHaVAL ( LEFTS ( MONTHS , 2 >> :  GOTO  533 

0 

5260  FOR  IV  *  1  TO  12 

5270  FOR  J  V  a  1  TO  3 

5280  IF  MID* (MONTHS , J . V , 1 >  *  MID*(MONTH*( 

I.V),J.V,1>  THEN  TEST  *  -1  ELSE  TEST  -  0 

5290  IF  NOT  TEST  GOTO  5320.  '  oni  not  a* t 

ching  is  inough 

5300  NEXT  J.V 

5310  IF  TEST  THEN  MONTH  >  IV.  GOTO  5330:  1  found 

a  aa t  c  h 

5320  NEXT  IV 

5330  IF  MONTH  <  1  OR  MONTH  >  12  THEN  INPUT "Month  not  undo 

rstood--*nttr  t  ho  month  at  a  ono  or  two  digit  nuabo  r  < 1  .  . 1 2  > 
•'  ,  MONTH :  GO 
TO  5330 
5340 

5350  'MONTH  is  now  valid,  sot  MONTH*  if  reqd  . 

5360 

5370  IF  MON. NUM  THEN  MONTH*  a  MONTH *( MONTH ) 

5380 

5390  'chock  if  this  is  a  leap  yoar. 

5400 

5410  IF  YEAR/4  a  YEAR! 4  THEN  LEAP  YEAR  a  -1  ELSE  LEAP . YEA 

R  *  0 

5420 

5430  'if  so  aust  incroaont  first  day  valuos  aftor 

5440  '  February .  .  . 

5450 

5460  IF  LEAP.YEAR  THEN  FOR  IV  a  3  TO  12:  F I RST . DAY ( I . V > 

a  FIRST. DAY( I . V)  +  1:  NEXT 

5470 

5480  'make  sure  the  number  of  days  is  valid  for  the  month 

5490  'first,  coapu  t  o  mas  days  in  month 

5500  IF  MONTH  a  12  THEN  MAX. DAY*  a  "  31"  ELSE  MAX. DAY*  « 

STRS (FIRST  DAY (MONTH  ♦  1>  -  F I RST . DAY (MONTH > ) 

5510  MAX  . DAY*  -  MI D S ( MAX . DAY  *  , 2 , 2 ) 

5520  '  then  chock  range 

55  30  IF  DAY  <  l  OR  DAY  >  VAL ( MAX  DAY » >  THEN  PRINT  "Day  of 

month  not  undo r s t ood-- i npu t  day  as  k  number  <1. ."  MAX. DAY* 
INPUT" 

"  ,  DAY 

55  40 

5550  ' now  put  it  together  and  see  if  correct. 

5560 

5570  DAY*  -  STR* ( DAY  >  :  YR*  a  STR* ( YEAR >  :  DATES  «  DAY*  «•  " 
"  ♦  MONTH*  ♦  YR* 

5580  PR  I NT "The  date  entered  is.  DATE* 

5590  PRINT:  PRINT  C* , 

5600  A*  a  INPUT* ( 1 ) 

5610  IF  A*  a  "i"  THEN  GOTO  4570:  'try  again.. 

5620  IF  A*  <>  "0"  THEN  PRINT  E*  GOTO  5580 

56  30 

5640  'date  is  valid  and  checked  correct,  make  the  julian 
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5660  '  julian  date  form  is  ytar  digit  *  1000  *  juli 

an  date 

5670 

5680  DATE  «  VAL < R I CHT* < STR* ( YEAR >  , l >  > *  1  0 0  0  ♦  FIRST  DAYCMO 
NTH)  ♦  DAY  -1 

56  90 

5700  ‘reset  ail  variables  not  needed 

57  10 

5720  ERASE  D» 

57  30  YEAR  »  0:  MONTH  •  0:  DAY  »  0:  MON .  Nl/M  -  0 

5740  FIRST. DLMTR  -  0:  A*  >  “ “ .  MAX. DAY*  »  “ “ 

5750  DAY*  «  •••*:  MONTH*  ■  ;  YR*  »  ,,u 

5760  RETURN 

5770 


tOO  '***  WKDAT.SET  ************************************ 

110  'program  dated  17  May  1983 

120 

130  'This  program  reads  all  pilnn  da t  files  and  sets 

140  the  weekly  data  in  VKnn.DAT 

150 

180  'variables  required: 

170  '  none 

180 

190  'returns- 

200  '  VKnn.DAT  file 

210 

220  DEFINT  A-Z 

230  CLRS  -  CHRS (28):  DOWNS ' *  CHRS(10):  ESCS  »  CHR  $(27) 

240  MID.SCRNS  »  CLRS  ♦  STRINGS ( 8 , 1 0 > 

250  UPS  *  CHRS (11):  MOV . LEFTS  -  CHRS (8).  MOV. RIGHTS  »  CH 

RS ( 1 2 ) 

280  HOMES  »  CHR  S ( 3  0 )  :  CLR. LINES  «  ESCS  +  "T" 

270  'set  avail  period  constants. 

280  PERIOD . ST  TIME  *  0:  PERIOD. DUR  *  10080:  INCR  .  30 

290  'char  positions  of  date/time  in  acts 

300  SD  a  8 :  ST  a  11  ED  a  18:  ET  ■  2 t 

310  ‘fndt.tim  pulls  the  substring  value  from  acts 

320  DEF  FNDT.TIM(NL, P)  -  VAL < MI DS < ACTS ( NL > , P , 5 > > 

330 

340  CS  a  "Enter:  0  if  correct,  1  to  change  it:  " 

350  ES  a  "Error,  enter  0  or  l  only,  try  again. .  " 

380 

370  MAX  PIL  NUM  «  80 

380  IF  PS<0,0)  <>  CHRS (  2  5  5  >  THEN  ERASE  PS:  DIM  PS(MAX.?I 

L . NUM , 4  ) 

390  IF  QUALS(O)  <>  CHR$<255>  THEN  ERASE  QUALS:  DIM  QUAL S 

(15) 

400 

410  'open  and  field  def  files. 

420  OPEN  "R",  1,  "PILNAM . DEF" ,  27 

430  '  pil.num:  I. nameS:  initS:  ranks : 

440  FIELD*!,  2  AS  N1S,  20  AS  N2S,  2  AS  N3S,  3  AS  N4S 

450 

480  PRINT  MID.SCRNS  "Enter  the  week  starting  date  (Sunda 

y  )  :  " 

470  GOSUB  1730 

480  VK . DATE  »  DATE  VK. DATES  -  DATES:  VK . NUM  »  ( VK . DATE 

MOD  1000 )\7:  VK.NUMS  -  M I D S < STR S < VK  NUM ) , 2 ) 

490  PR INT"The  week  number  is  "  VK  NUMS 

500 

510  OPEN  "R",  2,  "VK"  +  VK.NUMS  "  DAT".  9  3 

520  '  pil.num:  availS:  cur  dtS  qual 

ne  t / nl t 

530  F I  ELD*  2 ,  1  AS  N2 1  $ ,  42  AS  N22S,  20  AS  N2 3 S ,  2  AS  N2 4 

S ,  28  AS  N25S 

540  F I  ELD*  2 ,  93  AS  N2  AS 

550 

580  FOR  PIL.NUM  -  1  TO  MAX  PIL.NUM 

570  FOR  I  •  1  TO  7 :  NET ( I )  -  -1  NLT ( I )  •  -1  NE 


82 


XT 

380  GET# l,  PIL.NUM 

590  NUM  ■  CVKNl*):  TRIMS  a  N2  S  :  COSUB  1  460  L.N 

AMES  a  TRIMS:  INITS  a  N3  S  RANKS  -  N4 S 

600  PRINT"Ge  t  t  i  ng  data  on  '*  RANKS  "  "  L. NAMES  "  , 

'•  INITS 

610  IF  NUM  <>  PIL.NUM  THEN  PRINT"File  »rrot  roc 

srd  nuabir  not  equal  to  pilot  number"  PRINT"Press  any  key  t 
o  cont inut . . 

.  DUMMY S  a  INPUTS <1> 

620  NUMS  a  MIDS ( STRS (NUM) , 2 > 

630 

640  NO. FILE  a  0 

650  ON  ERROR  COTO  680 

66  0  FILENAMES  a  "PIL"  +  NUMS  ♦  ".DAT" 

670  OPEN  "I",  3,  FILENAMES 

680  -  IF  ERR  a  53  THEN  NO  FILE  a  - i :  PRINT  FILEHAM 


ES  "  not  found,  going  to  nut  number 


-1.  PRINT  FILENAM 
RESUME  690 


690  ON  ERROR  COTO  0 

700  IF  NO. FILE  THEN  LSET  N2AS  a  STR INC S ( 9 3 , 0 ) 

SET  M2  IS  a  CHRS(PIL  NUM)  GOTO  12  80 

7  10' 

720  'read  in  pilot  data  file... 

730  COSUB  1550 

740  'close  pilot  data  file... 

750  CLOSE43 

760 

770  ..'make  data  for  each  week  data  record  field. 

780  LSET  N21S  a  CHRS(NUM) 

790 

800  ,  AVAILS  a  STRINCS < 42 , 233 ) 

810  FOR  N  «  1  TO  MAX . N 

820  ACT. CODE  a  VAL C LEFTS ( ACTS ( N) , 3 > ) 

8  30  ACT. ST. DATE  a  FNDT . TIM ( N , SD  > 

840  ACT. ST. TIME  a  FNDT . TIM ( N , ST ) 

850  ACT. END  DATE  «  '  FNDT  T IM  (  N  ,  ED  > 

860  ACT. END  TIME  «  FNDT  TI M ( N , ET > 

870 

880  'compute  times  in  minutes  from  week  beginning 


900  IF  ACT. ST. DATE  -  WK . DATE  >  7  THEN  ST 

ART. TIME  a  32767  ELSE  IF  ACT. ST. DATE  -  VK  DATE  <  -7  THEN  STA 
RT  TIME  a  -1 

0080  ELSE  START. TIME  a  (ACT. ST. DATE  -  WK  DATE) *1440  «■  ACT  ST 
TIME 

910  IF  ACT  END. DATE  -  VK . DATE  >  7  THEN  E 

ND  TIME  a  32767  ELSE  IF  ACT  END . DATE  -  VK  DATE  <  -7  THEN  END 
TIME  •  -100 

80  ELSE  END. TIME  a  < ACT . END . DATE  -  VK  DATE) *1440  ♦  ACT  END . T 
IMS 

920  'Set  defined  FALSE,  lust  check  activity  times 

930  AVAILa-1  SETaO 

940  COSUB  3380 

950  IF  NOT  AVAIL  THEN  PR  I NT" C on f l i c t  in 

activity"  N  CHRS<8>  ",  not  set  ." 


960  IF  (ACT. CODE  AND  192)  <>  0  THEN  GOSU 

B  5150  ELSE  C . REST  »  -1 

970  IF  C . REST  THEN  GOTO  1030 

980  PR I NT" Activity"  N  " - " ACTS ( N)  "dots  n 

at  meet  craw  rest  constraints  . ." 

990  PR INT" En  t  e  r :  0  to  ignore  crew  rest, 

l  to  NOT  set  this  activity:  ; 


1000 

1010 


A*  a  INPUTS  < 1  >  :  PRINT  AS 

IF  AS  a  "l"  THEN  GOTO  1040  ELSE  IF  A 


S  <>  "0"  THEN  PRINT  ES:  GOTO  980 


1020 
1030 
1040 
1050 
1040 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1  1  40 
1 150 
1  140 
1  1  70 
1  1  80 
1190 
1200 
12  10 
1220 
*4  - 
1230 


'set  defined  TRUE,  set  this  activity  in  avails... 

AVAIL  «  -1:  SET  -  -1  COSUB  3810 
NEXT:  'activity  for  this  pilot  number. . 

LSET  N22S  a  AVAILS 

s 

CUR.DTS  a 

FOR  N  a  1  TO  10 

CUR.DTS  a  CUR.DTS  -  MK I S < CUR . DT ( N > > 
NEXT:  'currency  event  date. 

LSET  N23S  .  CUR . DTS 

« 

QUAL  a  0 

FOR  N  a  1  TO  15 

IF  QV(N)  THEN  QUAL  a  QUAL  +  2‘<N-1) 
NEXT:  *  qua  1 i f ica t ion .  . 

LSET  N24S  a  MKISCQUAL) 

l 

'initialise  all  NET  and  NLT  times  as  -1  values.  . 

NET . NLTS  a  STRINGS ( 28 , 255 ) 

FOR  N  -  l  TO  7 

IF  NET(N)  <>  -1  THEN  MIDS (NET  NLTS ,N 

3,2)  »  MK I S ( NET (N ) > 

IF  NLT(N)  <>  -l  THEN  MI DS ( NET  NLTS , N 


*4  -  1,2)  a  MK I S  <  NLT  <  N )  ) 


1240 

1250 

1240 

1270 

1280 

1290 

1300 

13  10 

g  form) 

1320 

d 

1330 
2  2  4  S 
1340 
1350 
1340 
1370 
1380 


NEXT 

LSET  N25S  a  NET. NLTS 

« 

'save  all  data  in  buffer  to  this  pilot  number  record 
PUT# 2,  PIL.NUM 
NEXT :  ‘pilot  numbe  r .  .  . 

i 

'last  record,  save  the  date  (julian  number  and  strin 


tec  num : 


wk  date 


wk  dates 


not  use 


F I  EL  D#  2 ,  1  AS  N221S,  2  AS  N2  22  S,  9  AS  N223S,  81  AS  N 

LSET  N221S  a  CHR S < MAX . P I L . NUM  *  1) 

LSET  N222S  a  MKIS(WK  DATE) 

LSET  N223S  a  WK  DATES 
LSET  N224S  a  STR I NG S ( 8 l , 0 ) 

PUT# 2 ,  MAX  PIL  NUM  ♦  1 


1390 

1400  'all  pilot  data  for  the  week  now  in  one  file 

14  10  PRINT''VK"  WK  .  NUM  S  ".DAT  file  now  completed 
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1420  t 

1430 
1440 
1430 

144?  I 

1470  V 

1480 

1490 

1300  Vi 

13  10  1 

1320  RETU 
1330 
1340 

1330  I 

1340  I 

1570  I 

a  not  fou 

IS  80  1 

13  90  F 

•3,  QV(I) 
1400  I 

14  10  t 

found" : 

14  20  F 


1  aubr out  inti _ 

L  «  LEN(TRIM* )  ♦  1:  L . CHR*  . 
WHILE  AS  C  (  L  . CHR  t )  <  33 

L  -  L  -  1 

L . CHR*  ■  MID* (TRIMS , L 


CHR* ( 0  > 


VEND 

TRIM* 

RETURN 


>  LEFT* (TRIM* , L> 


'opon  data  fila  and  road  into  nonory, 
INPUT  *3,  NUM*,  L . NAME  » ,  F . NAME  * ,  MI* 
IF  EOF ( 3 )  THEN  COTO  1490  ELSE  INPUT 4 3 


c  1  o*o .  .  . 

RANK* ,  SS AN* 
QUAL . IDS 


THEN  PRINT"Qua 1 


<>  -1  THEN  ERASE 


DIM  QV ( 1 3  ) 


IF  EOF ( 3 )  THEN  COTO  1490  ELSE  INPUT 4 3 ,  QUAL . IDS 
IF  QUAL. ID*  <>  "QUALIFICATIONS."  THEN  PRINT"Qual  dat 
found"  : 

IF  QV ( 0 )  <>  -1  THEN  ERASE  QV :  DIM  QV ( 1 3 > 

FOR  I  *  1  TO  15:  IF  EOF ( 3 >  THEN  COTO  1  4  80  ELSE  INPUT 
(  I )  :  NEXT 

IF  EOF ( 3 )  THEN  COTO  14  80  ELSE  INPUT* 3 ,  CUR.  IDS 
IF  CUR. ID*  (>  "CURRENCIES : "  THEN  PRINT"Cur  data  not 


CUR . DT ( I ) 


.  1  TO 
NEXT 


EOF ( 3  >  THEN  COTO  14  80  ELSE  INPUT 


1430  IF  EOF ( 3 )  THEN  COTO  1480  ELSE  INPUT83 ,  ACT. ID*,  MAX. 

N 

1440  IF  ACT.  ID*  <>  "ACTIVITIES  SCHEDULED :  "  THEN  PRINT" Ac  t 
ivity  data  not  found". 

1430  FOR  N  «  1  TO  MAX . N 

1  440  IF  EOF ( 3  >  THEN  PRINT" EOF  btfort  MAX  N  .  . "  MA 

X.N  N; :  DUMMY*  »  INPUT*(1>:  COTO  1480 
1470  LINE  INPUT*  3 ,  ACT*(N) 

1480  NEXT 

1490  RETURN 


I F  MONTH* ( 0  >  (  > 

DIM  MONTH* (12) 


CHR* (255)  THEN  ERASE  MONTH* 


MONTH* ( l ) 
MONTH* ( 2 ) 
MONTH* ( 3 ) 
MONTH* ( 4 ) 
MONTH* ( 3) 
MONTH* ( 4 ) 
MONTH* ( 7 ) 
MONTH* ( 8 ) 
MONTH* ( 9) 
MONTH* (10) 
MONTH* (11) 
MONTH  * ( 1 2  > 


"JAN" 

"FEB" 

"MAR" 

"APR" 

"MAY" 

"  JUN" 
"JUL" 
"AUG" 

»SEP'« 

i  "OCT" 
"NOV" 
"DEC" 


IF  FIRST. DAY(O)  > 
DIM  FIRST. DAY ( 12  ) 


THEN  ERASE  FIRST  DAY 


'reset  FIRST. DAY ( 3 . .12)  if  correcting  a  date. 


1920 

1930 

1940 

1930 

19  60 
1970 
1980 
1990 
2000 

20  10 
2020 
2030 
2040 
2030 
20  60 
2070 
20  80 
2090 
2  100 
2110 
2120 
2  130 
2140 
2130 
2  160 
2  1  70 
2180 
2190 
2200 
22  10 
2220 
2230 
2240 
2230 
22  60 
2270 
2280 
2290 
23  00 
23  10 
2320 
23  30 
2340 
23  30 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
R  - 

)  >  : 


FIRST  DAY<1)  *  1 
F I RST . DAY  <  2 )  *  3  2 

F I RST . DAY  <  3 )  a  6  0 
FIRST. DAY<4)  a  91 
FIRST. DAY(3)  a  121 
F I RST . DAY  <  6 )  a  152 
F I RST . DAY ( 7  )  a  182 
FIRST. DAY<8)  -  213 
F I RST . DAY ( 9  )  a  244 
FIRST . DAY< 1 0 )  a  274 
FIRST. DAY< 1 1 )  «  303 
FIRST. DAY< 12)  -  333 

I 

* - get  the  date - 

INPUT"Vhal  is  the  dale  <Day  Month  Year)",  DATES 
IF  DATE*  a  "0"  THEN  DATE  a  0:  RETURN 

I 

'put  the  date  chars  in  individual  variables 

i 

IF  D  *  <  0 )  <>  CHR  *(  235  )  THEN  ERASE  D* 

DIM  D* ( L EN ( DATE  * ) > 

FIRST. DLMTR  a  0 

I 

FOR  I  V  «  1  TO  LEN( DATE  * ) 

0*<I  V)  a  MID* (DATE* , I  V , 1 ) 

IF  FIRST. DLMTR  <>  0  THEN  2290 
'if  first  delimiter  not  set,  look  for  it;  allow 
'almost  any  char  except  letters  or  numbers  to 
'delimit. 

D  a  ASC ( D* (I  . V > ) 

IF  D  <  48  THEN  DLMT  »  -1 
IF  (0  >  37  AND  D  <  65)  THEN  DLMT  -  -l 
IF  <D  >  90  AND  D  <  96)  THEN  DLMT  a  -l 
IF  DLMT  THEN  FIRST  DLMTR  a  IV 
DLMT  a  0 

NEXT 

i 

'assume  the  last  two  chars  are  the  year 

i 

YEAR  a  VAL (RIGHT* ( DATE* , 2 > ) 


'find  the  day.. 

'if  a  delimiter  was  found  then  day  is  t'/. e  value 
'before  the  delimiter,  otherwise  the  day  is  either 
'the  first  character  or  the  first  two  characters  of 
'the  st r ing--assume  the  first  two  characters  if  the 
'second  character  is  not  a  letter 

i 

IF  FIRST  DLMTR  THEN  DAY  a  VAL ( LEFT* < DATE *, F I RST . DLMT 
l>>  ELSE  IF  ASC  <  D  * ( 2 ) >  <  58  THEN  DAY  ■  VAL ( LEFT* < DATE *, 2 

FIRST. DL 
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MTR  -  2  ELSE  DAY  *  VAL < LEFTS ( DATE  *  , 1 )  )  FIRST  DLMTR  *  1 
2430 

2440  'find  the  month 

24S0  ‘just  look  at  thr»*  characters  past  the  day  or  past 

2460  'the  first  delimiter 

2470  '  -  month  could  be  a  number  or  letters 

2480  '  -  convert  lower  case  letters  to  upper 

2490 

2  3  0  0  MONTH  *  -  ••  •• 

2310  MON . NUM  *  0 

2320  FOR  I  .  V  ■  1  TO  3 

2530  IF  ASC ( D* < F IRST . DLMTR* I . V) )  <  38  THEN  MON . NU 

M  a  -1 

2340  IF  ASC(D* ( FIRST. DLMTR+I . V> >  >  96  THEN  DS(FIR 

ST  .  DLMTR«-l  .  V)  *  CHR* < ASC ( D * ( F I RST . DLMTR* I  V n - 3 2 > 

2530  MONTH*  *  MONTH*  +  D S ( F I RST  DLMTR* I . V ) 

2560  NEXT 

2370 

2580  'MONTH*  is  now  a  string  of  numbers  or  letters, 

2390  '  MON. NUM  is  TRUE  if  it  is  numbers 

2600 

26  10  IF  MON  NUM  THEN  MONTH* VAL  <  LEFT* (MONTHS ,  2  >  )  GOTO  269 

0 

2620  FOR  I.V  »  1  TO  12 

2630  FOR  J.V  -  1  TO  3 

2640  IF  MID* (MONTHS , J . V, 1 )  *  MIDS(MONTHS( 

I.V),J.V,1>  THEN  TEST  *  -1  ELSE  TEST  *  0 

2630  IF  NOT  TEST  GOTO  2680:  '  one  not  mat 

ching  is  enough 

2660  NEXT  J.V 

2670  IF  TEST  THEN  MONTH  -  I.V:  GOTO  2690:  '  found 

a  match 

2680  NEXT  I.V 

2690  IF  MONTH  <  1  OR  MONTH  >  12  THEN  INPUT"Month  not  unde 

r stood--enter  the  month  as  a  one  or  two  digit  number  <1  .  12> 

" ,  MONTH .  GO 
TO  2690 
2700 

2710  'MONTH  is  now  valid,  set  MONTHS  if  reqd. 

2720 

2730  IF  MON. NUM  THEN  MONTH*  ■  MONTH *( MONTH ) 

2740 

2730  'check  if  this  is  a  leap  year 

2760 

2770  IF  YEAR/4  *  YE AR \ 4  THEN  LEAP . YEAR  *  -1  ELSE  LEAP  YEA 

R  *  0 

2780 

2790  'if  so  must  increment  first  day  values  after 

2800  '  February. 

28  10 

2820  IF  LEAP  YEAR  THEN  FOR  I.V  .  3  TO  12:  FIRST  DAY (I.V) 

*  FIRST  DAY( I . V)  ♦  1:  NEXT 
2830 

2840  'make  sure  the  number  of  days  is  valid  for  the  month 
2830  'first,  compute  max  days  in  month. 


2840  IF  MONTH  -  12  THEN  MAX  DAY  $  *  "  31"  ELSE  MAX. DAYS  * 

STRS ( F IR  T  DAY < MONTH  *  1)  -  F I RST  D A Y ( MONTH ) > 

2870  .IAX.DAYS  *  MI  D  S  <  MAX  DAY  S  ,  2  ,  2  ) 

2380  1  t h • n  chack  range 

2890  IF  DAY  <  1  OR  DAY  >  VAL(MAX  DAYS)  THEN  PRINT  "Day  of 

month  not  unde r s t oo d-- i np u t  day  as  a  number  <1  MAX  DAYS 

" >  M ;  :  INPUT" 

"  .  DAY 
29  00 

2910  ‘now  put  it  together  and  see  if  correct. 

2920 

2930  DAYS  «  MI DS < STRS ( DAY )  , 2 )  :  YRS  a  STR  S ( YEAR )  :  DATES  a 

DAYS  ♦  "  "  ♦  MONTHS  +  YRS 

2940  PR INT"The  date  entered  is:  ” ;  DATES 
2930  PRINT:  PRINT  CS , 

2940  AS  a  INPUT  S  (  1  ) 

2970  IF  AS  a  "1"  THEN  GOTO  1930  'try  again... 

2980  IF  AS  <>  ‘•0“  THEN  PRINT  ES:  GOTO  2940 

2990 

3000  'date  is  valid  and  checked  correct,  ma  ke  the  jul iin 

3010  '  date.  . julian  date  form  is 

3020  '  year  digit  *  1000  ♦  Julian  date 

3030 

3040  DATE  a  VAL < R I GHTS < STR S ( YE AR )  ,  1  )  > *  1  0 0 0  ♦  FIRST  DAY(MO 

NTH)  ♦  DAY  -1 

3030 

3040  'reset  all  variables  not  needed 

3070 

3080  ERASE  DS 

3090  YEAR  a  0:  MONTH  a  0:  DAY  a  0:  MON  MUM  a  0 

3  100  FIRST  DLMTR  a  Q  AS  a  MAX  DAYS  a  '• " 

3  110  DAYS  a  :  MONTHS  a  YRS  a  "" 

3120  RETURN 
3  130 

3140  '***  CASE  *** 

3  13  0  ' mo  dule  dated  24  April  1983 

3  140 

3170  ‘This  module  includes  subroutines  called  by  other 

3180  'modules  in  determining  the  case  of  each  activity 

3190  'relative  to  the  week 

3200 

3210  'variables  rquired: 

3220  '  PERIOD  ST  TIME  «\s  an  integer  in  minutes  or  o 

ther  time  units 

3230  '  PERIOD. DUR  as  an  integer  length  of  period 

3240  INCR  as  an  integer  for  the  value  of  each  bit 

<  resolut ion) 

3230  '  START. TIME  as  values  for  the  activity 

3240  '  END. TIME 

3270  '  AVAILS  as  a  bit  string  with  '1'  available, 

O'  not  avail 

3280  '  AVAIL  as  a  control  code 

3290  '  SET  as  a  control  code  to  set  the  time  'not  a 

va i 1 ab 1 e ' 

3300  . 
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33  10 
33  20 
33  30 
3340 
33  50 
3  3  6  0 
33  70 
3380 

33  90 
3400 

34  10 

3420  ' 

34  30  ' 

34  40  ‘ 

3450  1 

3460  ' 

3470  ' 

3480 

34  90 
3500 

35  10 

3520 
3530 
35  40  ' 

35  50  ‘ 

3560 
3570 
3580 
3590  ’ 

36  00 
36  10 
36  20 
3630 
3640 

CONDI 
36  50 
OND2  » 
3660 


rtturns 


AVAIL  as  TRUE  if  time  is  ivii  Ub  U 
AVAIL!  updated  if  AVAIL  and  SET  both  TRUE 


‘subroutines  used 
'  all  internal 

COSUS  3600 
COSUB  3810 
RETURN 


-  This  routine  determines  the  case  of  activity 

start  (CASL1)  and  end  (CASE2)  relative  to 
the  period  start  and  end. 

CASE1  and  CASE2  equal  1  if  times  are  before 
'  the  period  starts,  2  if  during  the  period, 

or  3  if  after  the  period  Thus  if  CASE1  is 
'  3  or  CASE 2  is  1,  the  whole  activity  fails 

outside  the  period  in  question  If  both 
'  CASE1  and  CASE2  are  2,  then  the  whole 

'  activity  is  within  the  period 

CASE3  has  a  value  of  1  if  the  whole 
activity  fails  on  a  single  byte,  2  if  on 
adjacent  bytes,  and  3  if  one  or  more  whole 
bytes  fall  between  the  start  and  end 

START  BIT  *  START. TIME \ INCR 
START. BYTE  »  START . B IT\ 8  ♦  l 
END. BIT  »  (END. TIME-l ) \ INCR 
END  BYTE  *  END  BIT'.  8  +  l 

IF  START. TIME  >*  PERI OD . ST . TIME  THEN  CONDI  »  -1  ELSE 

r  0 

IF  START  TIME  <  ( PER  I OD . ST . TIME  ♦  PERIOD  DUR)  THEN  ( 

■i  ELSE  C0ND2  -  0 

IF’  CONDI  AND  COND2  THEN  CASE1  *  2  ELSE  IF  NOT  CONDI 


THEN 


THEN  CASE  1  »  1  ELSE 
3670  IF  END. TIME 
ND3  >  0 

3680  IF  END. TIME 
4  -  -l  ELSE  COND4  > 


IF  NOT  COND2  THEN  CASE1  »  3 
>  PERIOD  ST. TIME  THEN  COND3 


ELSE 


(PERIOD  ST . TI ME ♦ PERIOD  DUR)  THEN  COND 


3690  IF  C 

THEN  CASE  2  ■ 


3700 

3710 

3720 

3730 

3740 


IF 

IF 

IF 

RETURN 


COND3  AND  COND 4  THEN  CASE2  -  2  ELSE  IF  NOT  COND3 

•  1  ELSE  IF  NOT  COND4  THEN  CASE2  -  3 

END  BYTE  -  START .  BYTE  THEN  CASE 3  *  1 

END. BYTE  -  START. BYTE  -  1  THEN  CASES  «  2 

END  BYTE  -  START  BYTE  >  1  THEN  CASE3  »  3 


Th i a  routine  (elect!  the  proper  routine  for 
‘checking  or  setting  availability  based  on  the  case 
‘defined  by  CASE1,  CASE2,  and  CASES  . 


I- HD-A133  271  COMPUTER  ASSISTED  SCHEDULING  FOR -AIR  FORCE  TflCTICflL  2/2 

FIGHTER  SQUADRONS(U)  ARMV  COMMAND  AND  GENERAL  STAFF 
COLL  FORT  LEAVENWORTH  KS  B  C  DUGLE  03  JUN  83 
UNCLASSIFIED  SBI-AD-E758  845  F/G  12/1  NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  Of  STANDARDS- 1963- A 


3800 
38  10 
.4070 
38  20 
38  30 
,  4330 
38  40 

3850 

,4880 

3880 


if  start  is  before  period. 

IF  CASE1-1  AND  CASE2-2  THEN  ON  CASES  GOSU8  3970,4070 

if  start  and  snd  in  during  period. 

IF  CASE  1  a 2  AND  CASE2.2  THEN  ON  CASES  COSUB  4200,4370 

if  start  is  during  period  but  snd  is  after 

IF  CASE 1«2  AND  CASE2-3  THEN  ON  CASE  3  GOSUB  4550,4880 

if  start  is  before  and  end  is  aftsr  period. 


3870  IF  CASE  1st  AND  CASE2-3  THEN  F I RST . BYT» 1  :  LASTBYT-LE 
N( AVAILS ) :  GOSUB  4720 

3880  the  final  case  ends  before  or  starts  after 

3890  period.. 

3900  IF  CASE  1  »3  OR  CASE2-1  THEN  PR INT" Ac t i v i t y  is  couplet 

ely  outside  the  period." 

3910  RETURN 

39  20  1  _ 

3930  ' 

3940  '  -  This  routine  is  used  when  END. BYTES  is  the 

3950  '  first  byte  of  AVAILS 

3980  ' 

3970  FIRST  BIT  USED  •  0:  LAST  BIT. USED  -  (END  BIT  MOD  8) 
3980  BYT  TO  CXS  «  LEFTS ( AVA I L S , 1 > 

3990  GOSUB  4940 

40  00  IF  AVAIL  AND  SET  THEN  MI D S ( AVA I L S ,  1  .  I )  «  CHRS(ASC(BY 


3970  FIRST  BIT  USED  •  0:  LAST  BIT. USED  -  (END  BIT  MOD  8) 
3980  BYT  TO  CXS  «  LEFTS ( AVA I L S , 1 > 

3990  GOSUB  4940 

4000  IF  AVAIL  AND  SET  THEN  MI D S ( AVA I L S , 1 . I )  «  CHRS(ASC(BY 

T  TO. CXS)  AND  (NOT  MASX) ) 

4010  RETURN 


2 
3 

4040  -  This  routine  is  used  when  END  BYTE  points  to 

4050  '  end  by te . 

4080  * 

4070  FIRST. BYT  »  1:  LAST . BYT  ■  END  BYTE- 1 
4-080  GOSUB  4820 

4090  FIRST  BIT  USED  *  0:  LAST  BIT  USED  «  (END  BIT  MOD  8) 
4100  BYT  TO. CXS  ■  MI DS ( AVA I L S , END  BYTE , 1 > :  J  •  END  BYTE 

4110  GOSUB  4940 

4120  IF  AVAIL  AND  SET  THEN  GOSUB  5060  ELSE  RETURN 

4130  MIDS (AVAILS, END  BYTE, 1)  *  CHRS ( ASC ( BYT . TO . CXS )  AND  ( 


NOT  MASX) ) 
4140  RETURN 


4160 
4170 
4180 
4190 
42  00 
42  10 
42  20 
42  30 
4240 
4250 


-  This  routine  is  used  for  the  single  byte  case 

where  one  byte  includes  both  start  and  end 

BYT  TO. CXS  *  MIDS ( AVAI LS , START  BYTE , 1 > 

MASK  ■  0 

FIRST  BIT  USED  ■  (START. BIT  MOD  8) 

LAST  BIT  USED  ■  (END  BIT  MOD  8) 

GOSUB  4940 

IF  AVAIL  AND  SET  THEN  MI D S ( AVAI L S , START  BYTE,!)  < 


R*  t ASC ( BYT  TO  CK*)  AMD  <NOT  MASK)) 

4240  RETURN 

4270  •  _ _ 

4280  ' 

4290  -  This  routine  is  used  when  one  or  more  bytes 

4300  separate  the  first  end  last  bytes  or  when 

43X0  they  are  adjacent.. 

4320  * 

4330  FIRST. BYT  *  START  BYTE ♦ l :  LAST  BYT  «  END  BYTE-1 

4340  COSUB  4820 

4330  IF  MOT  AVAIL  THEN  RETURN 

4340  CASES  «  2  enters  here.  . 

4370  FIRST. BIT. USED  a  (START  BIT  MOD  8):  LAST  BIT  USED  « 

7 

4380  BYT  TO.CK*  -  Ml D* ( AV AI L », START  BYTE , 1 ) 

4390  COSUB  4940 

4400  IF  AVAIL  AND  SET  THEM  MASK  ST»MASK  BYT  ST  * • BYT . TO . C 

K*  ELSE  IF  NOT  AVAIL  THEN  RETURN 

4410  FIRST  BIT  USED  a  0:  LAST  BIT  USED  a  (END  BIT  MOD  3) 
4420  BYT  TO.CKI  a  MI D * < AVA I L * . END . BYTE , 1 ) :  J  a  END . BYTE 
4430  COSUB  4940 

4440  IF  NOT  AVAIL  THEN  RETURN 

4430  IF  ( CASE 3a 3 )  AND  (AVAIL  AND  SET)  THEN  COSUB  3040 

4440  IF  NOT< AVAIL  AND  SET)  THEN  RETURN 

4470  MID* (AVAILS , START . BYTE , 1 )  a  CHR 1 ( ASC ( BYT  ST* >  AND  (N 
OT  MASK  ST) ) 

4480  MID* (AVAIL* , END  BYTE , 1 >  a  CHR* ( ASC ( BYT . TO  .  CK * )  AND  ( 
NOT  MASK) ) 

4490  RETURN 

4300  ‘  _ 

4310  * 

4320  ---  Thi*  routine  is  used  when  the  lift  byte  in  the 

4530  '  string  is  the  only  byte  to  be  checked 

4340  ' 

4330  BYT  TO  CK*  a  MI D* ( AVAI L *, START  BYTE , 1 > 

4540  FIRST. BIT  USED  a  (START  BIT  MOD  8)  L AST . B IT . USED  a 
(PERIOD  END. BIT  MOO  8) 

4370  COSUB  4940 

4380  IF  AVAIL  AND  SET  THEN  MI D* ( AVAI L *. START  BYTE , 1 )  »  CH 
R* ( ASC ( BYT . TO . CK* )  AND  (NOT  MASK)) 

4590  RETURN 

4400  1  _ 

4410  * 

4420  - - -  This  routine  is  used  when  the  activity  ends 

4430  after  the  period  and  the  first  byte  is  one 

4440  or  more  bytes  from  the  end  of  AVAIL*  The 

4430  last  two  cases  of  CASES  are  both  checked  by 

4440  this  routine 

4470  ' 

4480  FIRST  BIT  USED  a  (START. BIT  MOD  8)  LAST  BIT  USED  a 
7 

4490  BYT  TO  CK*  a  MI D* ( AVA I L » , START  BYTE , 1 > 

4700  COSUB  4940 

4710  FIRST  BYT  a  START  BYTE ♦ 1 :  LAST. BYT  a  LEN( AVAIL* ) 

4720  COSUB  4820 
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4730  IF  AVAIL  AND  SET  THEN  GOSUB  5040  ELSE  RETURN 

4740  MID* < AVAIL* , START . BYTE . 1 >  ■  CHR* ( ASC < BYT  TO  CK* >  AND 
(NOT  MASK) ) 

4750  RETURN 

4740  *  _ 

4770  ' 

4780  -  This  routine  is  ussd  by  the  routines  ibovt  whsn 

4790  '  whole  bytes  ere  being  checked  for 

4800  '  eveilebility... 

4810  1 

4820  FOR  J  *  FIRST. BYT  TO  LAST. BYT 

4830  BYT.TOCK*  -  MI D* ( AVAIL* . J , 1 > 

4840  IF  BYT.TOCK*  <>  CHR*(255)  THEN  FIRST  BIT  US 

ED»0 :  LAST . BIT . USED. 7 :  GOSUB  4940 

4850  IF  NOT  AVAIL  THEN  RETURN 

4840  NEXT 


4870  RETURN 
48  80  '  _ 

48  90  ' 

4900  *  - 

49  10 

4920 
4930  1 

4940  MASY 

4950  FOR 

4940 
4970 

.  0 :  RETURN 
4980  NEX1 


-  This  routine  is  celled  by  ebove  routines  to 

check  eveilebility  within  pertiel  bytes  of 
'  AVAIL* . 

MASK  .  0 

FOR  K  «  FIRST  BIT. USED  TO  LAST  BIT  USED 
MASK  ■  MASK  *  2*K 

IF  ( ASC< BYT. TO . CK* >  AND  2*K>  «  0  THEN  AVAIL 


.  0 :  RETURN 
4980  NEXT 

4990  RETURN 

5000  •  _ _ 

5010  ’ 

5020  '  ---  " 

5030 

5040 

5050  ' 

5040  FOR  v 

5070 

5080  NEXT 


---  This  routine  is  celled  when  e  whole  byte  is  to 
'  be  set  to  NOT  AVAILABLE  stete,  both  AVAIL 

•  end  SET  ere  TRUE  . . 

FOR  J  .  FIRST. BYT  TO  LAST. BYT 

M I D *  <  A V A I L  * , J ,  1 >  .  CHR* ( 0  > 


5080  NEXT 

5090  RETURN 

5100  *  _ 

5110 

5120  ' thi i 

5  130 
5  140 

5150  DAY  » 

5140  IF  DJ 

5  170 

5180  IF  SI 

K  a  -1  ELSE  ! 
5  190  IF  EY 


'this  routine  checks  end  sets  NET  end  NLT  times 
used  for  checking  crew  rest 


DAY  a  START  TIME\  1  440  t>  1 

IF  DAY  <  2  OR  DAY  >  4  THEN  C . REST  a  -1 


RETURN 


5180  IF  START  TIME  >a  NET ( DAY )  OR  NET ( D AY  >  a  -1  THEN  ST  C 

K  a  -1  ELSE  ST  CK  a  0 

5190  IF  END  TIME  (a  NLT(DAY)  OR  NLT ( DAY )  .  -1  THEN  END  CK 

a  -1  ELSE  END  CK  >  0 
5200 

5210  IF  ST  CK  AND  END . CK  THEN  C  REST  .  -1  ELSE  C  REST  -  0 

RETURN 


l  THEN  END  CK 
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3220 

5230  IF  ( START  TIME-7  2  0  <  NLT  <  DAY - 1  >  )  OR  (NLT(DAY-l)  «  -l 
)  THEM  NLT ( DAY - 1 )  a  START  TIME  -  720 

3240  IF  <  NLT  <  DAY )  >  START  TIME+72 0 >  OR  ( NLT  <  DAY  >  »  -1>  TH 

EN  NLT ( DAY )  a  START. TIME  ♦  720 

3230  IF  <  NET  <  DAY )  <  END  TIME-720  )  OR  (NET(DAY)  •  -1)  THEN 

NET  <  DAY )  «  END  TIME  -  720 

3240  IF  <  NET  (  DAY  ♦  l  )  <  END  .  TIME  4-72  0  >  OR  (NETt  DAY*  1  >  a  -1) 

THEN  NET ( DAY ♦ 1 )  a  END  TIME  ♦  720 

3270 

3  2  SO  RETURN 
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'.0  0  '***  SCHED  SET  ******** ***********  ****************  * 

110  'program  datad  25  Kay  19S3 

120 

130  'Thii  program  builds  tho  bars  ichadula  fila  from 

140  ahallnn.dat  and  wknn  dat 

130 

160  'variables  rtqui rtd 

170  non* 

130 

190  ' rot  urns 

200  SCHEOnn  xix  fils 

210 

220  DEFINT  A-Z 

230  CLRS  «  CHRS (26):  DOWNS  a  CHRS(IO):  ESCS  «  CHRS<27) 

240  MID  SCRNS  a  CLRS  4-  STR INC S ( 4 , 1 0 ) 

250  UPS  .  CHR S (11):  MOV  LEFTS  a  CHRS(8):  MOV  RIGHTS  «  CH 

RS ( 12  ) 

260  HOMES  *  CHR  S  <  3  0  )  -  CLR  LINES  a  ESCS  +  "T" 

270 

290  PERIOD  ST  TIME  a  0:  PERIOD. DUR  a  10080:  INCR  *  30:  M 

AX  PIL  NUM  -  60 

290  DIM  QUAL  <  MAX  PIL. NUM),  AV A I L S ( MAX . P I L . NUM)  ,  CUR.DT(M 

AX  PIL  NUM, 9) 

300  DIM  P I  LOTS (  255  )  ,  ACT . CUR  QUAL S ( 2 3 3 ) 

310  ACT. CODE . USEDS  -  STRINGS C 32 , 0 ) 

320 

330  CS  a  "Entor:  0  if  corroct,  1  to  chango  it:  " 

340  E  $  >  "  E  r  i  o  r  i  m  1 1  r  0  or  1  only#  try  i,q  &  i  n  .  .  H 

350 

360  PRINT  MID  SCRNS  "Entsr  tht  wtak  numbsr 

370  INPUT"  ",  VK.NUMS 

380  WKDAT  FILES  a  "WX"  ♦  WK . NUMS  ♦  "DAT" 

390  ON  ERROR  COTO  410 

400  OPEN  "I",  1,  WKDAT  FILES 

410  IF  ERR  a  53  THEN  PRINT"No  "  WKDAT  FILES  "  found,  can 

not  continus  .  "  ELSE  CL03E 

420  ON  ERROR  GOTO  0 

430  OPEN  "R",  1,  WKDAT  FILES,  93 

440  F I  ELDS  1 ,  1  AS  N1 S ,  2  AS  N2S,  9  AS  N3  S ,  81  AS  N4S 

450  N  a  MAX  PIL  NUM  ♦  1 

460  GET* 1 ,  N 

47  0  WK .  DATE  ■  CVKN2S)  WK  .  DATE  S  a  N3  S 

480  CLOSE 

490 

500  SCHED  NUM  a  0 

510  FIL  NAM. FOUND  a  0 

520  WHILE  NOT  FIL  NAM. FOUND 

5  30  SCHED  NUM  a  SCHED  NUM  4-  1 

540  SCHED  NUMS  a  MIDS ( STRS ( SCHED . NUM) , 2 > 

550  WHILE  LEN< SCHED  NUMS >  <  3 

5  60  SCHED  NUMS  a  "0"  4-  SCHED  NUMS 

370  WEND 

380  FILENAMES  «  "SCHED"  4-  WK  NUMS  4.  "  "  4.  SCHED  NUMS 

590 
600 


'  chack  if  fila  alraady  axixti 
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6  10  ON  ERROR  GOTO  630 

620  OPEN  "I".  1,  FILENAME* 

630  IF  ERR  -  33  THEN  FIL  NAM  FOUND  «  -1  RESUME  630  EL 

SE  CLOSE  *  1 

640  'no  irror  indiei  tn  fila  wu  found  tnd  opanad,  try  a 

ga  i  n 

630  ON  ERROR  GOTO  0 

660  VEND 

670  PRINT"Us ing  "  FILENAME*  “  for  ichtdul*  data,  datad  " 

WK . DATE* 

680  PRINT:  PRINT  C* ; :  A*  ■  INPUT* < 1 ) :  PRINT  A* 

690  IF  A*  •  "1"  THEN  GOTO  360  ELSE  IF  A*  <>  "0"  THEN  PRI 

NT  E  * :  GOTO  6  7  0 

700 

710  '  tch«dul>  diti 

720 

730  OPEN  "R",  1,  FILENAME*,  38 

740  nqnua:  tet  ichtd  tint:  act  coda  p i 1 . nua 

st.tiaa  and.tiaa  act  mai  pilots  cur  raq:  qu 

a  1 . r sq : 

730  FIELDS1,  2  AS  Nil*,  2  AS  N12S,  1  AS  N13*,  1  AS  N14*, 

2  AS  N1S*.  2  AS  N16t,  20  AS  N17S,  8  AS  N18t,  10  AS  N19«,  10 

AS  N110* 


760 

F I  ELD# 1 ,  38 

AS  N 1  A* 

770 

780 

SHELL . FILE* 

*  “SHELL"  ♦  WK . NUM*  ♦  "DAT" 

790 

• 

800 

' opin  shall 

data  fila  as  #2... 

810 

OPEN  "R",  2, 

SHELL. FILE*,  30 

820 

saq 

.nua:  ac tschad. t iaa  act. coda 

act  ft  t iat :  act . and . t iaa :  act.naaa: 

830  FIELD82 ,  2  AS  N2 1  * ,  2  AS  N22*,  1  AS  N23*,  1  AS  N2 4 

t,  2  AS  N2  3  »  ,  2  AS  N26$,  20  AS  N2  7  $ 

840  F I  ELD* 2 ,  30  AS  N2  A* 

830 

860  M  -  0:  N  -  0:  END  F I L  -  0:  ACT  SCHED  TIME  -  0:  MAX  N 

«  20 

870  DIM  ACT* ( 19 ) 

880 

890  'following  string  has  bits  0  thru  39  'ON' 

900  ALL. PILOT*  •  STR ING * < 7 , 2 5 3 )  ♦  CHR*(15) 

910 

920  'open  act  dif  fils  as  *3  for  currsncy  and  qual 

930  rsqts 

940  OPEN  "R",  3,  "ACT.DEF",  46 

930  F I  ELD*  3 ,  2  AS  N3 1  * ,  20  AS  N3 2  * ,  2  AS  N33t,  2  AS  N34* 

,  10  AS  N33*  ,  1 0  AS  N3  6* 

960 

970  PRINT"G#t t ing  shall  data  from  "  3HELL  FILE*  "  and  sa 

Ting  in  "  FILENAME* 

980  WHILE  NOT  END. FIL 

990  'gat  shall  racords  20  at  a  tiaa  or  until  and 

1000  found. 

1010  WHILE  (ACT. SCHED  TIME  <>  32767)  AND  <N  <  MAX  N> 

1020  N  ■  N  ♦  1 
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1030  GET42.  N 

1040  '  itvt  tsmporarily  in  iet$  ,  males  1 « n  tquil  to  nsw 

10S0  rte  lsn  by  appending  null  chars. 

10  60  ACT*  <  N  MOO  20)  -  N2A*  ♦  STRINC*(S8  -  LEN(N2A*),0 

) 

1070  ACT  SCHED  TIME  «  CVI(N22») 

1080  VEND 

1070  IF  ACT  SCHED. TIME  -  32747  THEN  END  FIL  •  -l 

1100  '  savs  not  20  or  all  remaining  act*  in  schtdnn  in 

1110  '  tils... 

1120  WHILE  M  <  N 

1130  M  ■  M  +  1 

1140  ACT. CODE  •  ASC ( MI D* < ACT* (M  MOD  20),3,t>) 

1130  GET*3,  ACT. CODE 

1160  CUR  REQ*  a  N3SS:  QUAL . REG*  a  N36S 

1170  ACT  CUR  QUAL* (ACT. CODE)  -  CUR. REQ*  «•  QUAL . REQ* 

1180 

1190  'savs  ths  currsncy  and  qual  strings  with  ths  rscord 

1200  and  ths  act . cods . ussd  bit  tor  sach  act. cods 

1210  in  ths  schsduls  . . 

1220 

1230  MID* < ACT* <M  MOD  20  ), 39, 20  )  a  ACT  CUR  QUAL *( ACT . C 

ODE) 

1240  BYTE  a  ACT  CODE \ 8  ♦  1.  BIT  a  (ACT. CODE  -  1)  MOD 

8 

1250  BYT*  a  MID* < ACT  CODE  USED* , BYTE , l ) 

1260  IF  <  ASC  <  BYT* )  AND  2*BIT)  <>  2'BIT  THEN  MID*(ACT. 

CODE . USED* , BYTE , 1 )  a  CHR* < ASC ( BYT* >  «•  2* BIT) 

1270 

1280  LSET  N1 A*  a  ACT*CM  MOD  20) 

1290  PUT* 1 ,  M 

1300  VEND 

1310  MAX  N  a  MAX  N  ♦  20 

1320  VEND 

1330  MAX  N  a  N 

1340  CLOSE  42 ,  #3 

1330  ERASE  ACTS 

1360  FRINT"Tr ans t s r  complstsd" 

1370 

1380  ' sehsdnn. in  now  has  a  rscord  tor  sach  activity 

1390  tound  in  ths  schsduls  shsll  . 

1400 

1410  'opsnwsskly  data  tils  as  *3  and  gst  avail*  and 

1420  qual  data  in  msmory  . . 

1430  PRINT"Gst t ing  AVAIL*  and  QUAL  data  from  "  VXD AT  FILE 

t 

1440  OPEN  "R",  3,  VKDAT  FILE*,  92 

1430  '  pil  nun:  avail*:  eurdt:  qual 

ns  t / nl t : 


1460 

FI ELD43 , 

1  AS  N3 1 (  , 

42 

AS  N3  2*  , 

20 

AS  N3  3  *  ,  2  AS  N3 4 

*  ,  28 

AS  N3  3  * 

1470 

FI ELD43 , 

93  AS  N3A1 

1480 

‘  opsn  a 

spsci f  ic  wssk l y 

data  f  i 

Is 

to  bs  ussd  with 

1490 

l 

this  schsduls  data 

1500 

OPEN  "R" 

,  2,  "VK"  ♦ 

VK 

NUM*  f  " 

it 

♦  SCHED  NUM* ,  93 

96 


15  10 

F I ELDt 2 ,  93  AS  N2A* 

1520 

i 

1530 

FOR  P 

■  1  TO  MAX .PIL  .NUM 

1540 

GET 8 3  ,  P 

1550 

IF 

P  <>  AS C ( N3 1  * )  THEN  PR I NT" Error  in  "  VKDAT  FILE 

*  ",  rtcord" 

P  "<>  to  pilot  number"  ASC<N31S) 

15  4  0 

AVAILt(P)  «  N32S 

1570 

‘  FOR  Q  •  0  TO  9 

1580 

1 

CUR . DT <  P , Q )  a  CVI (MID* (N33* ,Q*2+ 1  , 2 >  > 

1590 

NEXT 

1400 

QUAL  <  P  >  >  CVKN34S) 

1410 

'  liVI 

in  individual  week's  data  file. 

1420 

TMP* 

a  N3A* :  LSET  N2 At  a  TMP* 

1430 

PUT#  2 

,  P 

1440 

NEXT 

1450 

'  Save 

final  record  -  date  data. . . 

1440 

GET#  3 

,  P 

1470 

TMP* 

a  N3 At :  LSET  N2A*  -  TMP* 

1480 

PUT  #2 

,  P 

1490 

CLOSE 

#2  ,  #3 

1700 

1 

1710 

’check  each  act. code  (if  used)  then  evaluate  each 

1720 

1 

pilot  for  qualification  and  save  in  pilot*... 

1730 

FOR  I 

a  1  TO  254 

1740 

BYTE  a  I \ 8  ♦  1:  BIT  a  (I-l)  MOD  8 

1750 

BYT*  a  MID* ( ACT. CODE . USED* , BYTE , 1 > 

1740 

'  set 

the  pilot*  bits  on  only  for  qualified  pilots... 

1770 

IF 

( ASC ( BYT* )  AND  2*BIT>  a  2*BIT  THEN  GOSUB  2040. 

PILOT* (I)  » 

PILOT* 

1780 

NEXT 

1790 

1 

1800 

*  now 

have  pilots  qualified  for  each  activity  saved 

13  10 

i 

in  p i 1 o t * ( ac t . code ) ;  next,  determine  which 

1820 

* 

qualified  pilots  are  also  available,  then 

1830 

■ 

save  with  the  activity  record  in  schednn  xn 

1840 

* 

1850 

FOR  N 

a  1  TO  MAX  N  -  1 

1840 

PRINT"Ge t t ing  AVAIL*  data  for  sched  sequence 

numb*  r 

"  N 

1870 

GET#  1  ,  N 

1880 

ACT  . CODE  a  ASC ( N1 3  * ) 

1890 

IF  ACT. CODE  >  128  THEN  PILOT*  a  PILOT* (ACT  C 

ODE)  ELSE  PILOT*  >  N18* 

1900 

ACT.  ST  TIME  a  CVKN15*):  ACT  END  TIME  a  CVI( 

N14*  ) 

19  10 

FOR  I  -  1  TO  MAX . PIL  NUM 

1920 

AVAIL*  -  AVAILtd) 

1930 

BYT*  a  MID* (PI  LOT* , I \ 8  +  1 , 1 )  BIT  -  (I-i>  M 

00  3 

1940 

IF  ( ASC ( BYT* )  AND  2*BIT>  a  2’BIT  THEN  GOSU 

B  2230 

1950 

NEXT 

1940 

LSET  N18*  a  PILOT* 

1970 

PUT#  1  ,  N 

1980 

NEXT 

1990  PRINT" Sc he du 1 •  file  compltttd" ;  END 
2000 

2010  '  mbrout  in«i 

2020 

2030  'this  rsutini  comparts  tht  qual  rtqd  values  to  tht 

2040  pilot  qual  viluis  and  sats  tho  pilots  bit 

2050  '  on  if  a  qual  match  is  found. . . 

2060  PILOTS  a  STR I NC  S  <  8  ,  0  > 

2070  PR INT" Cht ck i ng  pilot  qualifications  for  activity  cod 
#"  I 

2080  FOR  P  «  1  TO  MAX.PIL.NUM 

2090  J  a  0:  QUAL. FOUND  -  0 

2100  WHILE  QUAL . FOUND  a  0  AND  J  <  5 

2110  J  a  J  ♦  1 

2120  QUAL . REQ  a  CVI ( MI DS ( ACT . CUR  QUAL S ( I >  , J* 2 ♦ 9 , 2  )  ) 

2  130  IF  (QUAL(P)  AND  QUAL . REQ  >  -  QUAL . REQ  THEN  QUAL . F 

OUND  a  -1 

2140  WEND 

2130  BYTE  a  P\8fl;  BYTS  .  MI D  S (PI  LOTS  , BYTE ,  1  )  :  BIT  a  (P 

-1)  MOD  a 

2160  IF  QUAL . FOUND  THEN  M I D S < P I  LOT S , BYTE ,  1 >  a  CHRS(ASC( 

BYTS)  +  2  *  B IT )  :  PR I NT" P i I o t "  P  "qual"  ELSE  PRINT"Pilot"  P  "n 
ot  qual" 

2170  NEXT 

2180  FOR  H  a  1  TO  8 :  PRINT  ASC ( MI DS ( P I  LOTS  , H ,  1 )  )  ;  :  NEXT: 
PRINT 

2190  RETURN 
2200 

2210  'this  routine  checks  a  pilot  for  availability  and 

2220  '  turns  off  the  pilots  bit  if  not  available... 

2230  START. TIME  a  ACT. ST. TIME 

2240  END. TIME  a  ACT. END. TIME 

2230  AVAIL  a  -1 :  SET  a  0 

2260  COSUB  2760 

22  70  PRINT" Pi  lot"  I; 

2280  IF  NOT  AVAIL  THEN  MI DS (PI  LOTS ,  I  \  8  +  1  ,  1  >  a  CHRS(ASC(BY 

TS )  -  2  *  B IT )  : .  PR INT"No  t  avail"  ELSE  PRINT" Ava i l " 

2290  RETURN 
2300 

2310  'trim  trailing  spaces... 

2320  L  a  LEN< TRIMS  >  ♦  1:  L.CHRt  a  CHRS<0> 

2330  WHILE  ASC(L.CHRS)  <  33 

2340  L  a  L  >  1 

2350  L.CHRS  a  MI D S < TR I MS , L , 1 ) 

2360  WEND 

2370  TRIMS  a  LEFTS <TR IMS , L ) 

2380  RETURN 
2390 

2400  'dynamic  array  size  increase 

2410  DIM  TMPS (MAX .N> 

2420  FOR  M  a  1  TO  MAX . N  TMPS(M)  a  ACTS(M)  NEXT 
2430  ERASE  ACTS:  DIM  ACTS  <  MAX  N  *  10) 

2440  FOR  M  a  1  TO  MAX  N  ACTS(M)  ■  TMPS(M):  NEXT 
2450  MAX  .  N  a  MAX  N  ♦  10 

2460  ERASE  TMPS 


2470  ON  Efl 

2480  RETUF 

2490 
250 
25  10 

2520  '*** 

2530  'modu 

2540 

2550  'This 

25  40 
2570 
2580 

2590  ' vtri 

2400 

th  e  r  tin*  units 
24  10 
2420 

((•solution) 
2430 
2440 
2450 

O'  not  tvt i I 
2440 
2470 

va i 1 ab 1 e ' 

2480 


ON  ERROR  GOTO 
RETURN 


***  CASE  *** 
moduli  dated 


2490 
2700 
2710 
2720 
2730 
2740 
2750 
2740 
2770 
2780 
2790 
2800 
28  10 
2820 
2830 
2840 
2850 
2840 
2870 
2880 
2890 
2900 
29  10 
2920 
2930 
2940 
2950 
2940 
2970 
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This  aoduls  includes  subrout  inis  called  by  othir 
modules  in  determining  the  ctsi  of  each 
activity  relative  to  the  week 

variables  rquired. 

PERI OO . ST . TIME  as  an  integer  in  minutes  or  o 


PERIOD. OUR  as  an  integer  length  of  period 
INCR  as  an  integer  for  the  value  of  each  bit 


START. TIME 
END .TIME 
AVAILS  as  j 


values 


string  with 


activity 


AVAIL  as  a  control  code 
SET  as  a  control  code  to 


avai  lable 


t  ime 


returns 


AVAIL  as  TRUE  if  time  is  available 
AVAILS  updated  if  AVAIL  and  SET  both  TRUE 


'subroutines  used: 

all  interna  1 

GOSUB  2980 
GOSUB  3190 
RETURN 


-  This  routine  determines  the  case  of  activity 

start  (CASEl)  and  end  (CASE2)  relative  to 
the  period  start  and  end. . . 

CASEl  and  CASE2  equal  1  if  times  are  before 
the  period  starts,  2  if  during  the  period, 
or  3  if  after  the  period.  Thus  it  CASEl  is 
'  3  or  CASE2  is  1,  the  whole  activity  falls 

'  outside  the  period  in  question.  If  both 

'  CASEl  and  CASE2  are  2,  then  the  whole 

'  activity  is  within  the  period. 

CASE3  has  a  value  of  1  if  the  whole 
activity  falls  on  a  single  byte,  2  if  on 
adjacent  bytes  and  3  if  one  or  more  whole 
bvtes  'all  bet*  sen  the  start  and  end 


2980  START  BIT  -  START  TIME \ INCR 
2990  START. BYTE  a  START  B IT\ 8  ♦  1 
3000  END. BIT  -  ( END . TIME- 1) \ INCR 
3010  END . BYTE  -  END  BIT\8  «■  1 

3020  IF  START. TIME  >-  PERIOD  ST. TIME  THEN  CONDI  «  -1  ELSE 
CONDI  -  0 

3030  IF  START. TIME  <  < PER  I OD . ST . TI ME  ♦  PERIOD. DUR)  THEN  C 
OND2  ■  -1  ELSE  COND2  -  0 

3040  IF  CONDI  AND  COND2  THEN  CASE1  «  2  ELSE  IF  NOT  CONDI 
THEN  CASE  1  >  1  ELSE  IF  NOT  COND2  THEN  CASE1  -  3 
3030  IF  END. TIME  >  PER  I OD . ST . TIME  THEN  COND3  «  -1  ELSE  CO 
ND3  •  0 

3080  IF  END. TIME  <-  (PERIOD  ST  TIME+PERIOD. DUR)  THEN  COND 
4  «  -1  ELSE  COND4  *  0 

3070  IF  COND 3  AND  COND4  THEN  CASE2  a  2  ELSE  IF  NOT  COND3 

THEN  CASE2  »  1  ELSE  IF  NOT  COND4  THEN  CASE2  a  3 

3080  IF  END. BYTE  a  START . BYTE  THEN  CASE 3  a  t 

3090  IF  END. BYTE  -  START. BYTE  -  1  THEN  CASE3  *  2 

3  100  IF  END. BYTE  -  START . BYTE  >  1  THEN  CASE 3  a  3 

3110  RETURN 

3120  ‘  _ 

3130  ' 

3140  '  This  routint  selects  the  proper  routine  for 

3130  checking  or  setting  availability  based  on 

3180  1  the  ease  defined  by  CA5E1,  CASE2 ,  and  CASE3 

3170  ' 

3180  if  start  is  before  period... 

3190  IF  CASElal  AND  CASE2.2  THEN  ON  CASE3  COSUB  3340,3440 

,3440 

3200  '  if  start  and  end  are  during  period.  . 

3210  IF  CASE  1  a 2  AND  CASE2-2  THEN  ON  CASES  COSUB  3370,3740 

,3700 

3220  '  if  start  is  during  period  but  end  is  after. 

2* 30  IF  CASE  1 a2  AND  CASE  2  a  3  THEN  ON  CASE  3  COSUB  3920,405  0 

,  4050 

3240  '  if  start  is  before  and  end  is  after  period.  . 

3230  IF  CASElal  AND  CASE2-3  THEN  FIRST. BYT- 1 :  LAST  BYT-LE 

N( AVAILS ) :  COSUB  4090 

3280  '  the  final  case  ends  before  or  starts  after  p 

eriod 

3270  IF  CASE  1  a  3  OR  CASE  2  a  1  THEN  PR INT" Ac t i v i t y  is  complet 

ely  outside  the  period.  " 

3280  RETURN 

32  90  ’  _ 

3300  1 

3310  '  -  This  routine  is  used  when  END  BYTES  is  the 

3320  first  byte  of  AVAILS 

3330  * 

3340  FIRST. BIT  USED  -  0:  LAST  BIT  USED  a  (END  8IT  MOD  8) 
3350  BYT  TO  CKS  a  LE FTS < AVA I L S , 1 ) 

3380  COSUB  4310 

3370  IF  AVAIL  AND  SET  THEN  M I D S ( AVA I L S , 1 , 1 >  a  CHRS(ASC(BY 

T  TO. CKS)  AND  (NOT  MASK)) 


Mi] 


3380 

33  90 
3400 

34  10 
3420 
3430 
3440 
3430 
3  4  4  0 
3470 
3480 
3490 
3500 
NOT 
3510 
3520 
3530 
33  40 
3330 
3340 

33  70 
3580 
3590 
3400 

34  10 
34  20 


RETURN 


-  This  routini  is  used  when  END  BYTE  points  to 

*  end  byte. . . 

FIRST. BYT  a  1:  LAST . BYT  *  END  BYTE- 1 
GOSUB  4190 

FIRST. BIT. USED  a  0.  LAST . BIT . USED  «  (END. BIT  MOD  8> 
BYT.TO.CX*  .  MID* (AVAIL* , END  BYTE , 1 ) :  J  ■  END . BYTE 
GOSUB  4310 

IF  AVAIL  AND  SET  THEN  GOSUB  4430  ELSE  RETURN 
MID* ( AVAIL* , END  BYTE , 1 >  -  CHR* ( ASC ( BYT . TO . CKS )  AND  ( 
MASK)  ) 

RETURN 


-  Th is  routine 

where  one 


is  used  for  the  single  byte  case 
byte  includes  both  start  and  end 


a  MID* (AVAIL* , START  BYTE , 1 ) 


R* ( ASC ( BYT . 
3430  RETURN 
34  40  '  _ 


BYT. TO . CX9 
MASK  «  0 
FIRST. BIT . USED 
LAST. BIT. USED 
GOSUB  4310 

IF  AVAIL  AND  SET  THEN  MID* (AVAIL* 
OCX*)  AND  (NOT  MASK)) 


(START  BIT  MOD 
( END . B IT  MOD  8 ) 


8  ) 


START . BYTE , 1 )  a  CH 


3450  ' 

3440  ' 

3470 
34  80 
3490  ' 

3700 
37  10 
3720 
3730  ' 

3740 
7 

3730 
3740 
3770 
Kt  ELSE 

37  80 
3790 

38  00 
38  10 
3820 
3830 
38  40 
OT  MASK 
38  50 
NOT  MASK) ) 
3840  RETURN 


--  This  routine 
separate 
they  are 


is  used  when  one  or  more  bytes 
the  first  and  last  bytes  or  when 
adjacent 


ST.MASK:  BYT  ST* -BYT . TO . C 


FIRST  BYT  -  START. BYTE ft :  LAST  BYT  •  END.  BYTE- 1 
GOSUB  4190 

IF  NOT  AVAIL  THEN  RETURN 

CASE3  *  2  enters  here. 

FIRST. BIT. USED  a  (START. BIT  MOD  8):  LAST . B IT . USED  a 

BYT.TO.CX*  «  MID* (AVAIL* , START  BYTE , 1 > 

GOSUB  4310 

IF  AVAIL  AND  SET  THEN  MASK 
IF  NOT  AVAIL  THEN  RETURN 
FIRST. BIT  USED  a  0:  LAST  BIT. 

BYT.TO.CX*  a  MID* (AVAIL* , END 
GOSUB  4310 

IF  NOT  AVAIL  THEN  RETURN 

IF  (CASE3a3>  AND  (AVAIL  AND  SET)  THEN  GOSUB  4430 
IF  NOT< AVAIL  AND  SET)  THEN  RETURN 

MID* (AVAIL* , START  BYTE , l )  »  CHR * ( AS C ( B YT  ST * )  AND  (N 

ST)  ) 

MID* (AVAIL* , END . BYTE , 1 >  a  CHR * ( ASC ( BYT  TO  „CK * )  AND  ( 


USED 
BYTE  , 


1  ) 


(  END 
:  J  « 


BIT  MOD  8) 
END  BYTE 
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3890  -  This  routini  is  us*a  whsn  ths  last  byts  in  thi 

3900  '  string  is  ths  only  byts  to  bs  checked 

39  10  * 

3920  BYT . TO . CK  *  *  MI  0* ( AVAI L *, START  BYTE ,  1 > 

3930  FIRST. BIT. USED  -  (START  BIT  MOD  8):  LAST  BIT. USED 
(PERIOD . END . BIT  MOD  8) 

3940  COSUB  4310 

3950  IF  AVAIL  AND  SET  THEN  MI D $ ( AV A I L * , START . BYTE , l )  - 
R* ( ASC ( BYT . TO . CK*  >  AND  (NOT  MASX>> 

3940  RETURN 


-  This  routins  is  used  whsn  ths  activity  snds 

after  ths  psriod  and  ths  first  byts  is  ons 
or  mors  bytss  from  ths  snd  of  AVAILS  Ths 
last  two  casss  of  CASE3  are  both  checked  by 
1  this  routins... 


3 
3 

3990  1  -  This  r 

4000  1  af 

4010  1  or 

4020  la 

4030  1  th 

4040  1 

40  3  0  FIRST.  BIT.' 

7 

4040  BYT . TO . CK* 

4070  COSUB  4310 

4080  FIRST. BYT 

4090  COSUB  4190 

4100  IF  AVAIL  A1 

4110  MI DS ( AVA I L 


FIRST. BIT. USED  »  (START. BIT  MOD 


LAST. BIT. USED  » 


BYT . TO . CK*  «  MID* ( AVAIL* , START  BYTE , 1 ) 

GOSUB  4310 

FIRST. BYT  a  START . BYTE+ l :  LAST  BYT  .  LEN( AVAIL*) 
GOSUB  4190 

IF  AVAIL  AND  SET  THEN  COSUB  4430  ELSE  RETURN 

MID* (AVAIL* , START. BYTE , 1 )  »  CHR* ( ASC ( BYT . TO . CK* >  AND 


a  START . BYTE+ l :  LAST . BYT 


LEN( AVAIL* > 


(NOT  MASK) ) 
4120  RETURN 


4150 
4140 
4170 
4  180 
4190 
4200 
42  10 
ED-0 
4220 
4230 
4240 

2  3 

24 

27 

28 

29 

30 

3  1 

3  2 

33 

34 
0 


'  -  This  routins  is  ussd  by  the  routines  above  when 

•  whole  bytss  are  being  checked  for 

'  availability... 

i 

FOR  J  a  FIRST. BYT  TO  LAST  BYT 

BYT . TO CK*  -  MID* (AVAIL* ,J , 1 ) 

IF  BYT . TO . CK  *  (>  CHR*(  233  >  THEN  FIRST  BIT  US 

LAST. BIT  USED- 7 :  COSUB  4310 

IF  NOT  AVAIL  THEN  RETURN 

NEXT 

RETURN 


<  -  This  routins  is  called  by  above  routines  to 

'  check  availability  within  partial  bytss  of 

AVAIL* . . . 

I 

MASK  -  0 

FOR  K  -  FIRST. BIT  USED  TO  LAST  BIT. USED 
MASK  -  MASK  +  2  *  K 

IF  ( ASC ( BYT  TO . CK* )  AND  2'K)  -  0  THEN  AVAIL 

RETURN 
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43  6  0  RETURN 

4370  ‘  __ _ _ 

4380  1 

4390  -  This  toutint  is  eallad  whan  a  whole  byts  is  to 

4400  '  ba  sat  to  NOT  AVAILABLE  stata,  both  AVAIL 

4410  and  SET  aca  TRUE . 

4420  ' 

4430  FOR  J  « 

4440 

44S0  NEXT 

4440  RETURN 


FIRST. BYT  TO  LAST . BYT 
MID* (AVAIL* , J , 1 >  -  CHR* (  0  > 
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100  '***  VXSCHED  SET  ********************************** 

110  'program  datad  24  May  19S3 

120 

130  'This  program  builds  tha  final  schtdult  fils  from 

140  '  schadnn.xxx  and  wlcnn  xxx 

ISO 

14  0  '  variabUs  raquirad: 

170  non# 

180 

190  'rsturns: 

200  SCHEDnn.DAT  fils  whan  complstsd 

2  10 

220  DEFINT  A-Z 

230  CLRS  a  CHRS < 24):  DOWNS  »  CHRS (10):  ESCS  -  CHRS < 27 > 

CHS  «  CHRS (13) 

240  MID  SCRNS  »  CLRS  4-  STR INC S  (  4  ,  1  0  ) 

250  UPS  »  CHRS (11):  MOV. LEFTS  »  CHRS < 8 > :  MOV. RIGHTS  *  CH 

RS  < 12) 

24  0  HOMES  a  CHR  S  <  3  0 )  :  CLR. LINES  a  ESCS  ♦  "T" 

270 

280  PERIOD . ST  TIME  »  0:  PERIOD. DUR  «  10080.  INCR  a  30:  M 

AX. P I L. NUM  a  40 

290  DIM  QUAL < MAX . P I L . NUM ) ,  AVA I L S < MAX  P I L . NUM > ,  PIL.NAMS 

(MAX.PIL  NUM  ♦  1) 

300  DIM  PI  LOTS  <  254  )  ,  CUR  NAMSC15),  EXP  DUR(15)  ,  INXP  DUR 

(15),  EVENT. NUM< 15 ) 

310  DIM  NETC7) ,  NLT<  7 ) 

320  ACT. CODE  USEDS  •  STRINGS < 14 , 0 ) 

330  DAYS  m  "SunMonTuaWadTh  uF  riSat" 

3  40  MONTHS  •  " JANFEBMARAPRMAY JUNJUL AUGSEPOCTNOVDE  C JA 

N" 

350  FIRST. DAYS  a  "00103204009112115218221324427430533534 

4" 

340 

370  CS  a  "Entar :  0  if  eorract,  1  to  changa  it. 

380  ES  a  "Error,  antar  0  or  1  only,  try  again..." 

390 

400  PRINT  MID.  SCRNS  "Entar  tha  waalc  numbar:";:  INPUT"  ", 

VK  NUMS 

410  FILENAMES  a  "SCHED"  ♦  VK . NUMS  ♦ 

420  PR INT" Scha du 1  a  filas  for  waak  "  VK.NUMS  PRINT 

430  FILES  FILENAMES:  PRINT  DOWNS 

440  PRINT"Entar  tha  schadula  fila  numbar  or  0  to  xtart  a 

gain:";:  INPUT"  ",  SCHED. NUMS 

450  IF  SCHED  NUMS  a  "0"  THEN  COTO  400 

440  WHILE  LEN< SCHED . NUMS )  <  3 

470  SCHED. NUMS  a  "0"  ♦  SCHED. NUMS 

480  VEND 

49  0  FILENAMES  a  "SCHED"  «■  VK.NUMS  ♦  «•  SCHED.  NUMS 

500 

510  PRINT  MID. SCRNS  "Uaing  "  FILENAMES  "  for  achaduia  da 

ta  .  " 

520  PRINT  CS ; :  AS  a  INPUTS(l):  PRINT  AS 

330  IF  AS  a  "l"  THEN  GOTO  400  ELSE  IF  AS  <>  "0"  THEN  PRI 

NT  ES :  GOTO  520 


3  60 

370  OPEN  "R",  1,  FILENAME*,  38 

380  saq  num:  act  ichid  tint  ict.codi  pil  nun 

st.tima  tnd. tint :  tct.nint:  pilots:  cur  raq  qu 

tltiq: 

390  F I  ELD* 1  ,  2  AS  Nil*,  2  AS  N12S,  1  AS  N13»,  1  AS  N14$, 

2  AS  N1 5  * ,  2  AS  N16*,  20  AS  N17t,  8  AS  N18$,  10  AS  N19t,  10 

AS  N1 10* 

600  F I  ELD# 1 ,  58  AS  N 1  A* 

6  10 

620  PR! NT  MID. S CRN*  "Catting  data  data.. 

6  30  WKDAT .  FILE*  »  "WK"  *  WK.NUM*  «•  "  .  "  ♦  SCHED  NUM* 

640  OPEN  "R" ,  2,  WKDAT  FILE*,  93 

630  FIELD42,  1  AS  N2 1  * ,  2  AS  N2 2 1 ,  9  AS  N23S,  81  AS  N24* 

660  GET# 2,  MAX. PIL  NUM  ♦  1 

670  IF  ASC ( N2 1  * )  <>  MAX. PIL. NUM  ♦  1  THEN  PRINT" F  i  l  a  acca 

ss  arror  in  "  WKDAT. FILES 

680  WK . DATE  «  CVI<N22*>:  WK  DATES  «  N23* 

690  IF  ( WK . DATE  MOD  10001V7  <>  VALCWK  NUMS )  THEN  PR INT" E 

rror:  weak  number  "  WK.NUM*  "  dotf  not  agraa  with  fiia  "  WKD 
AT. FILE*  ", 
da  tad  "  WK . DATE* 

700  CLOSE  *2 

710 

720  PRINT  MID.SCRNS  "Catting  eurrancy  names  from  fila  .. 

«( 

730  OPEN  "R",  2.  "CUR. DBF",  28 

740  cur.num:  eur.namS:  axp.dur:  inxp.dur: 

event . nun: 


730 

FIELD82 , 

2  AS  N2 1  * ,  2  0  AS  N22*  , 

2 

AS  N2  3* 

,  2  AS 

N2  4* 

,  2 

AS  N23S 

760 

FOR  I 

m 

1  TO  13 

770 

GET *2 ,  I 

780 

« 

TRIMS  *  N2  2 » :  GOSUB  351 

0  : 

CUR . NAM* ( I >  * 

TRIM 

a 

790 

EXP  .  OUR  (  I  )  -  CVKN23*) 

800 

INXP.DUR(I)  «  CV I <  N2  4  $ ) 

810 

EVENT. NUM(I>  ■  CVI(N25*> 

820 

NEXT 

830 

CLOSE 

*2 

840 

l 

830 

PRINT 

MID  SCRN*  "Catting  pilot 

nama  s  f  r  om 

file.  . 

II 

860 

OPEN  " 

R" 

,  2,  "PILNAM  DEF",  27 

870 

• 

pil. num :  1 . nama * : 

i  n  i  t  »  : 

rank* 

880 

FIELD42 , 

2  AS  N21(,  20  AS  N2 2  * , 

2 

AS  N2  3  *  , 

3  AS 

N2  4* 

890 

FOR  I 

m 

1  TO  MAX  PIL. NUM 

900 

GET42  ,  I 

910 

TRIM*  >  N22* 

920 

IF  TRIM*  >  "Not  in  usa 

•  « 

THEN  COTO 

930 

ELSE  GOSUB 

3310:  PIL. NAM* ( I )  ■  TRIM* 

930 

PIL. NAM* ( I )  ■  N2  4  *  ♦  " 

1* 

♦  PIL  NAM* (I)  ♦ 

It 

"  ♦  N2  3  * 
940 


PRINT  CR*  STRING* ( 33 , 32 )  CR*  USING  I, 


PRINT  M  -  ••  PIL  .  NAM*  <  I)  ; 

950  NEXT 

940  PIL . NAM* (MAX . PIL .NUM*1 >  *  "Non*" 

970  CLOSE  1 2 

980 

990  N  -  0:  ACT. SCHED  TIME  -  0 

1000  PRINT  MID.SCRN*  "Cutting  length  of  "  FILENAME* 

1010  WHILE  ACT. SCHED  TIME  <>  32747 
1020  N  a  N  +  1 

1030  GETil .  N 

1040  ACT . SCHED  TIME  a  CVI(N12*> 

10  SO  VEND 

1040  MAX  N  a  N:  DIM  ACT* ( MAX . N ) 

1070  PRINT"Reading  "  FILENAME*  "  into  memory" 

1080  FOR  N  a  1  TO  MAX  N 

1090  CETil,  N 

1100  ACT* (N>  a  N1A* 

1110  NEXT 

1120 

1130  PRINT  MID.SCRN*  FILENAME*  "  data  now  in  memory..." 
1140 

1130  'open  date  file... 

1140  OPEN  "R",  2,  WKDAT  FILE*,  93 

1170  FIELD82.  1  AS  N221*,  42  AS  N222*,  20  AS  N223S,  2  AS 

N224*,  28  AS  N22S* 

1180 

1190  PRINT 

1200  PRINT"  Enter:" 

1210  PRINT"  0  to  quit" 

1220  PRINT"  1  to  fill  lehidul*  in  nqatnct  numb* 

r  ordtr" 

1230  PRINT"  2  to  fill  individual  itqutnci  number 

activities” 

1240  rRINT"  3  to  fill  by  activity  numbor" 

1250  PRINT"  Which  choice?  " ; 

1240  SEL  a  VAL( INPUT* ( 1 ) ) 

1270  IF  SEL  a  0  THEN  GOTO  1310  ELSE  IF  SEL  >  3  THEN  PRINT 

"Error,  an  tar  0  to  3  only,  try  again...":  GOTO  125  0 

1280  ON  SEL  GOSUB  1400,  1430,  1500 

1290  PRINT  MID  SCRNt:  COTO  1190 

1300 

1310  FOR  N  a  1  TO  MAX  N 

1320  LSET  N1A*  a  ACT* (N) 

1330  PUTtl,  N 

1340  NEXT 

1350  PRINT  MID.SCRN*  "Schedule  data  saved  in  "  FILENAME* 

"  and  "  WKDAT  FILE* 

1340 

1370  1  control  subroutines _ 

1380 

1390  ‘step  thru  in  sequence  number  order  . 

1400  PRINT"No  t  written  yet.  DUMMY*  a  INPUT* (l) 

1410  RETURN 

1420  'one  seq  num  at  a  time  from  keyboard. 

1430  PRINT  MID  SCRN*  "What  is  the  sequence  number?", 


I 


1440  INPUT"  ",  SEQ.NUM 

1450  IF  SEQ.NUM  (a  0  THEN  GOTO  1480  ELSE  IF  SEQ  NUM  >  MAX 

N  THEN  PRINT"Error:  itquinci  number  too  big,  intir  *  number 
f  r  om  0  (to 

quit)  to"  MAX.N:  PR INT"T  r  y  again:";  INPUT"  ",  SEQ.NUM:  GOTO 
1450 

1440  GOSUB  1540 

1470  PRINT"Enter  0  to  quit,  sequence  number  to  display,  an 

other  schedule  activity  .":  GOTO  1440 
1480  RETURN 

1490  'by  activity  number... 

1500  PR INT"No  t  written  yet...";:  DUMMY S  ■  INPUTS ( 1) 

1510  RETURN 
1520 

1530  ' _ sub  routines 

1540 

1550  'display  an  activity  and  candidates  on  screen. . 

1540  IF  SEQ.NUM  <>  CVI (MI DS ( ACTS ( SEQ  .NUM) , 1 , 2 ) )  THEN  PRIN 

T" Error  in  file  at  record  "  SEQ  NUM 

1570  ACT. SCHED  TIME  ■  CVI ( MI DS ( ACTS ( SEQ  NUM) , 3 , 2 ) > 

1580  'get  clock  time,  day,  and  date. . . 

1590  GOSUB  3730.  SCHED. TIMES  a  THIS. TIMES 

1400  GOSUB  3880 

1410  ACT. CODE  a  ASC (MIDS ( ACTS ( SEQ  NUM) , 5 , 1 > ) 

1420  PIL.NUM  «  ASC(MIDS (ACTS (SEQ  NUM)  , 4  .  1  )  ) 

1430  START. TIME  -  CVI (MIDS (ACTS (SEQ .NUM)  ,  7 , 2  )  ) 

1440  GOSUB  3730:  ST. TIMES  a  THIS  TIMES 

1450  END. TIME  «  CVI (MIDS ( ACTS ( SEQ  NUM) , 9 , 2 ) ) 

1440  GOSUB  3730:  END. TIMES  -  THIS. TIMES 

1470  IF  PIL.NUM  a  255  THEN  PIL.NUM  a  MAX  PIL.NUM  *  1 

1480  ACT. NAMES  a  MI DS ( ACTS ( SEQ . NUM ) , 1 1 , 2 0 ) 

1490  CANOS  a  MIDS (ACTS (SEQ  NUM) , 31 , 8 ) 

1700  C AND. TOT  a  0 

1710  FOR  I  a  l  TO  MAX  PIL.NUM 

1720  BYTE  a  AS  C ( M I D  S (C  AND  S,I\8+1,1)>:  BIT  a  ( I  - 1 ) 

MOD  8 

1730  IF  (BYTE  AND  2‘BIT)  a  2*BIT  THEN  CAND . TOT  a 

C AND  TOT  ♦  l 
1740  NEXT 

1750  CUR  REQ  a  CVI (MIDS ( ACTS ( SEQ . NUM)  , 39 , 2  )  > 

1740 

1770  PRINT  LEFTS (MID  SCRNS , 5 ) ; 

1780  PRINT" Sequence  number:"  SEQ  NUM  TAB ( 5 0 )  THIS. DAYS  ", 
"  THIS. DATES  DOWNS 

1790  PRINT  SCHED. TIMES  "  -  "  ACT  NAMES  TAB(35)  "Aeeigned: 

"  PIL  NAMS(PIL  NUM)  DOWNS 
1800  NONE  a  -1 

1810  PRINT"Cur renc i ee  required:" 

1820  FOR  I  a  0  TO  14 

1830  IF  (CUR. REQ  AND  2‘I>  a  2*1  THEN  PRINT  CUR  NAMS ( I 

♦1)  "  IF  NONE  THEN  NONE  a  0 

1840  NEXT 

1850  IF  NONE  THEN  PR  I NT"No  ne " 

1840  PRINT 

1870  PR  I NT" C and i da  t  e  name*  " 
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1880 
tad  and 
1890 
1900 
19  10 
1920 
1930 
1940 

1  9  S  0 

19  4  0 
1970 
1980 
1990 
2000 

20  10 
2020 
2030 
2040 

2  0  5  0 
2040 
2070 
2080 
2090 
2100 
2  110 
2  120 
2130 
2140 
2130 
2140 
2170 


IF  CAND . TOT  »  0  THEN  PRINT"Nona  shown  as  both  qualif 
availablt":  COTO  2170 
K  «  0:  L  «  CAND . TOT\ 3 

IF  CAND  TOT  MOD  3  >  0  THEN  LI  »  L  +  1  ELSE  LI  »  L 
IF  CAND  TOT  MOD  3  >  1  THEN  L2«L+1ELSEL2»L 
BYTE  -0:  BIT«0:  LN  •  0 
WHILE  LN  <  LI 

LN  •  LN  ♦  1 
I  «  0 

'find  first  column  nama  to  print  .  .. 

FOR  J  »  1  TO  LN 

COSUB  3290 

NEXT 
'print  it... 

COSUB  3370:  IF  K  -  CAND . TOT  THEN  COTO  2140 
'skip  11  namas 

FOR  J  -  1  TO  LI 

COSUB  3290 

NEXT 


'print  tha  next  ona 

GOSUB  3  3  70.  IF  JC  •  CAND  TOT  THEN  COTO  2140 
'skip  12  namas 

FOR  J  -1  TO  L2 

COSUB  3290 

NEXT 


GOSUB  3370 

WEND 


'icraan  now  shows  activity  and  available  pilots... 
PRINT" En  t  a  r  0  to  skip  salaction  or  pilot  number  to  s 


elect  a  pilot  for  this  activity" 

;  2130  INPUT" Vh i ch  pilot  number?  ",  I 

»  2190  IF  I  <«  0  THEN  COTO  3040  ELSE  IF  I  >  MAX. PI L NUM  THE 

I  N  PRINT"Oui  of  range,  enter  a  number  from  0  to"  MAX.PIL.NUM 

"only,  try  a 
gain" :  COTO  2180 

2200  'check  avail  and  crew  rest  if  applicable... 

2210  GET#2,  I 

2220  IF  I  <>  AS C ( N2 2  11)  THEN  PRINT" File  access  error  in  " 

VKDAT. FILE* 

2230  AVAILS  -  N2 2 2 1 

2240  NET. NLTI  ■  N223  I 

2230  FOR  N  «  l  TO  7 

2240  NET(N)  >  CVI (MIDS (NET . NLT* , N* 4  -  3,2>) 

2270  NLT(N)  -  CVI (MI Dl (NET . NLTI , N* 4  -  1,2)) 

2280  NEXT 

2290  AVAIL  •  -1 :  SET  -  0 

2300  PRINT"Recheck  availability  of  "  PIL.NAMKI), 

2310  COSUB  4300 

2320  IF  NOT  AVAIL  THEN  PRINT"  is  not  good,  resetting  stat 

us.  MIDI  (  ACT!  (  SEQ  NUM)  ,  I  \  8«-31  ,  l  )  «  CHR!  (  ASC  (MIDI  (  CAND  I  ,  I 

\8+l , 1 ) )  -  2 

*((I-i)  MOD  8)):  COTO  1340 

2330  IF  AVAIL  AND  (ACT. CODE  AND  192)  THEN  COSUB  3110  ELSE 


I 


>  -j-  V  V 


-V  -V- 
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CREST  »  >1 

2340  IF  CREST  AND  AVAIL  THEN  PRINT"  is  good"  ELSE  PRINT" 
is  not  good" 

2350  IF  AVAIL  AND  (NOT  C  REST)  THEN  PRINT"Craw  cast  rulas 

not  ait,  antar  0  to  ignora  craw  rast  or  1  to  NOT  salact  thi 
s  pilot  " ; : 

AS  >  INPUT  $ (  1 >  :  PRINT  AS  ELSE  COTO  2380 

2340  IF  AS  a  "1"  THEN  COTO  1770  ELSE  IF  AS  <>  "0"  THEN  PR 

INT  ES:  COTO  2350 

2370  'avail  and  craw  rast  chaek  goo.d  so  sat  this  pilot  in 
this  activity.. 

2380  SET  -  - 1 :  COSUB  4730 

2370  BYTE  a  ASC (MI DS ( CANDS , I \ 8+1 , 1 > ) :  BIT  a  (1-1)  MOD  8 
2400  IF  (BYTE  AND  2*BIT>  a  2‘BIT  THEN  MI DS ( CANDS , I \ 8* 1 , 1 > 
a  CHRS ( BYTE  -  2* BIT) 

2410  LSET  N222S  a  AVAILS 

2420  FOR  N  a  1  TO  7 

2430  IF  NET(N)  (>  -1  THEN  MI D* (NET . NLTS , N* 4  -  3,2 

)  a  MKI S  <  NET  <  N)  ) 

2440  IF  NLT(N)  (>  -1  THEN  MI DS ( NET . NLTS , N* 4  -  1.2 

)  a  MKI S (NLT (N> ) 

2450  NEXT 

2440  LSET  N225S  a  NET. NLTS 

2470  PUT* 2,  I 

2480  'updata  actS(saqnua)  in  naaory. 

2490  MIDS ( ACTS (SEQ.NUM) , 4 , 1 >  «  CHRS ( I ) 

2500  MIDS (ACTS (SEQ.NUM) , 31 , 8)  a  CANDS 

2510  FOR  J  a  1  TO  MAX  N 

2520  IF  J  a  SEQ.NUM  THEN  COTO  2570 

2530  IF  END. TIME  (  CVI (MI DS ( ACTS ( J )  ,  7  ,  2 >  )  THEN  CO 

TO  2570 

2540  IF  START. TIME  >  CV I ( MI DS ( ACTS ( J )  ,  9  ,  2 )  )  THEN 

COTO  2570 

2550  B  a  ASC (MIDS ( ACTS (J), 1X8*31,  1)) 

2540  IF  B  AND  2*((I-l)  MOD  8)  THEN  MI DS ( ACTS ( J ) , I 

\ 8  +3 1 , 1 )  a  CHRS ( B  -  2  *  <  <  I  -  1  )  MOD  S)> 

2570  NEXT 

2580  IF  PIL.NUM  a  MAX  PIL  NUM  ♦  1  THEN  COTO  1540 

2590  'if  pil.nua  (>  41  than  rasat  old  pilots  bit  and  avai 

1 S ( p i 1 . nun)  .  .  . 

2400  CET*2 ,  PIL.NUM 

2410  AVAILS  a  N222S 

2420  NET  NLTS  a  N225S 

2430  FOR  N  a  1  TO  7 

2440  NET ( N)  a  CVI ( MI DS ( NET  NLTS , N* 4  -  3,2)) 

2450  NLT ( N)  a  CV I < M I DS ( NET  NLTS , N* 4  -  1,2)) 

2440  NEXT 

2470  BYTE  a  AS C ( M I D S ( C AND S , F I L . NUM X  8  ♦  1  ,  1  )  >  :  BIT  a  (PIL  NU 
M-l)  MOD  8 

2480  IF  (BYTE  AND  2*BIT)  a  0  THEN  MI DS ( CANDS , P I L  NUMX8+1, 
l)  a  CHRS ( BYTE  ♦  2*BIT> 

2490  FOR  I  a  START. BIT  TO  END. BIT 

2700  BYTE  a  I  \  8  ♦  1  :  BIT  a  (1-1)  MOD  8 

2710  BYTS  a  MIDS ( AVAILS , BYTE , 1 ) 

2720  IF  ( ASC ( BYTS )  AND  2‘BIT)  a  0  THEN  MIDS(AVAIL 
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* , BYTE , 1 )  •  CHRS ( ASC( BYT* )  ♦  2*BIT> 

2730  NEXT 

2  7  40  DAY  «  START . TIME \  1 4  4  0  ♦  i 

2750  IF  DAY  <  2  OR  DAY  >  7  THEN  COTO  2960 

2740  IF  NLT(DAY-l)  <>  START. TIME  -  720  THEN  COTO  2810 

2770  ACT  SCHED  TIME  ■  NLT <  DAY - 1  >  :  COSUB  3730 

2780  PRINT" Cancel  lad  activity  aat  craw  rest  time  for  andi 

ng  previous  day:  "  THIS  TIMES 

2790  PRINT  CS;:  AS  •  INPUTS < 1 ) :  PRINT  AS 

2800  IF  AS  -  "1“  THEN  COSUB  3410:  NLT<  DAY- 1 )  -  NEWT  ♦  (D 
AY  -  2 ) *  1  4 4 0  ELSE  IF  AS  <>  "0"  THEN  PRINT  ES:  GOTO  2790 
2810  IF  NLT (DAY)  <>  START. TIME  ♦  720  THEN  GOTO  2840 
2820  ACT. SCHED  TIME  ■  NLT ( DAY >  :  COSUB  3730 

2830  PRINT"CanceI 1  ad  activity  sat  craw  rest  time  for  andi 
ng  this  day:  "  THIS. TIMES 

2840  PRINT  CS ; :  AS  a  INPUTS ( 1 ) :  PRINT  AS 

2850  IF  AS  -"l"  THEN  COSUB  3410  NLT (DAY)  »  NEW  T  f  (DAY 

-  1  )  *  1 4  40  ELSE  IF  AS  <>  "O'*  THEN  PRINT  ES  COTO  2840 

2860  IF  MET ( DAY )  <>  END  TIME  -  720  THEN  COTO  2910 

2870  ACT. SCHED .TIME  «  NET ( DAY ) :  COSUB  3730 

2880  PRINT" Canca 1  I  ad  activity  sat  craw  rast  time  for  bagi 
nning  this  day  "  THIS  TIMES 

2890  PRINT  CS;:  AS  a  INPUTS(l):  PRINT  AS 

2900  IF  AS  *  "1"  THEN  COSUB  3410  NET ( DAY )  a  NEW .  T  ♦  (DAY 

-  1  ) *  1  4  4  0  ELSE  IF  AS  (>  "0"  THEN  PRINT  ES  GOTO  2890 

2910  IF  NET( DAY* 1 )  <>  END  TIME  ♦  720  THEN  COTO  2960 

2920  ACT. SCHED  TIME  a  NET ( DAY ♦ 1 > :  COSUB  3730 

2930  PRINT"CanceI lad  activity  sat  craw  rast  time  for  bagi 

nning  following  day.  "  THIS. TIMES 

2940  PRINT  CS;  AS  a  INPUTS ( l > :  PRINT  AS 

2950  IF  AS  a  "I"  THEN  COSUB  3410:  NET  ( DAY  «•  1  )  a  NEW .  T  ♦  DA 

Y* 1 4  40  ELSE  IF  AS  <>  "0"  THEN  PRINT  ES:  GOTO  2940 
2960  PRINT  PIL  NAMS (PIL .NUM)  “  is  reset  in  "  WKDAT  FILES 

2970  LSET  N222S  a  AVAILS 

2980  FOR  N  »  1  TO  7 

2990  IF  NET ( N )  (>  -1  THEN  MI DS ( NET . NLTS , N*  4  -  3,2 

)  -  MKIS ( NET < N ) ) 

3000  IF  NLT(N)  <>  -l  THEN  MI DS ( NET  NLTS , N* 4  -  1,2 

)  •  MKIS  <NLT(N> ) 

3010  NEXT 

3020  LSET  N22SS  -  NET. NLTS 

3030  PUT# 2,  PIL. NUM 

3040  MIDS ( ACTS ( SEQ  NUM) , 3 1 , 8 >  ■  CANDS 
3050  GOTO  1560 

3040  RETURN 
3\J  70 

3080  *  internal  subroutines _ 

3090 

3100  ‘craw  rast  check.  .  . 

3110  ‘this  routine  checks  and  sets  NET  and  NLT  times  used 

for  checking 

3120  craw  rest.. 

3130 

3140  DAY  a  START. TIME! 1 440  ♦  1 

3150  IF  DAY  (  2  OR  DAY  >  6  THEN  C  REST  •  -1  RETURN 


*9 


3  170  IF  START  . TIME  >-  NET ( DAY  >  OR  NET ( DAY  >  -  -1  THEN  ST  C 

K  .  -1  ELSE  ST  CK  *  0 

3180  IF  END  . TIME  <■  NLT ( DAY  >  OR  NLT ( DAY )  >  -1  THEN  END  CK 
,  .1  ELSE  END  CK  «  0 
319  0 

3200  IF  ST  CK  AND  END . CK  THEN  C . REST  >  -1  ELSE  C . REST  «  0 
:  RETURN 
32  10 

3220  IF  (START. TIME-72  0  <  NLT( DAY - 1  )  )  OR  (NLT(DAY-l)  «  -l 
)  THEN  NLT<  DAY- 1 )  -  START. TIME  -  720 

3230  IF  (NLT<  DAY  >  >  START . T I ME  +  720  )  OR  (NLT(DAY)  »  -1)  TH 
EN  NLT ( DAY)  -  START. TIME  ♦  720 

3240  IF  (NET(DAY)  <  END . TIME-720 >  OR  (NET(DAY)  *  -1)  THEN 
NET (DAY)  «  END. TIME  -  720 

3230  IF  (NET ( DAY* 1 )  <  END . TI ME  +  7  2  0  )  OR  ( NET ( DAY* l >  ■  -l> 

THEN  NET( DAY* 1 )  *  END. TIME  ♦  720 

3260 

3270  RETURN 
3280 

3290  IF  I  <  MAX  PIL.NUM  THEN  I  -  I  ♦  1  ELSE  GOTO  3330 

3300  BYTE  «  ASC (MI D* ( CAND * , I \ 8 ♦ l , 1 ) ) :  BIT  *  (I-l)  MOD  8 

3310  WHILE  ((BYTE  AND  2*BIT>  (>  2*BIT)  AND  (I  <  MAX.PIL  N 


3290  IF  I  <  MAX  PIL.NUM  THEN  I  -  I  ♦  1  ELSE  GOTO  3330 

3300  BYTE  «  ASC (MI D* ( CAND * , I \ 8 ♦ l , 1 ) ) :  BIT  *  (I-l)  MOD  8 

3310  WHILE  ((BYTE  AND  2*BIT>  (>  2*BIT)  AND  (I  <  MAX.PIL  N 
UM) 

3320  I  ■  I  ♦  1 

3330  BYTE  •  ASC(MID* ( CAND* ,  I  V 8fl  ,  1 )  )  :  BIT  «  (I-l) 

MOD  8 

3340  WEND 
3330  RETURN 

3340 

3370  PRINT  TAB((K*25+1>  MOD  75)  USING  I,.  PRINT  "  - 

"  PIL  NAM* < I > ; :  K  »  K  ♦  1 :  IF  K  MOD  3*0  THEN  PRINT 
3380  RETURN 


3400 

3410  PRINT"Entar  tha  naw  craw  cast  tiaa"; 

3420  INPUT"  ",  NEW  T 

3430  HR  «  NEW . T \ 1 0 0 :  MIN  «  NEW  T  MOD  100:  BAD  «  0 

3440  IF  HR  <  0  OR  HR  )  24  THEN  BAD  •  -1 

3430  IF  MIN  <  0  OR  MIN  >  39  THEN  BAD  »  -1 

3440  IF  BAD  THEN  PRINT"Tiaa  not  understood,  ra-antar  as  a 

4  digit  nuabar":  GOTO  3410 
3470  NEWT  »  HR*40  ♦  MIN 

3480  RETURN 
3490 

3300  'tria  trailing  spacas 

3510  L  ■  LEN(TRIMI)  ♦  l:  L . CHR*  ■  CHR*(0> 

3320  WHILE  ASC(L.CHRt)  <  33 

3330  L  »  L  -  1 

3540  L . CHRI  -  MI Df < TR IM» , L , 1 > 

3350  WEND 

3340  TRIM*  ■  LEFT* (TRIM* , L) 

3370  RETURN 
3380 

3390  ‘dynaaic  array  sisa  incraasa  . . 


3400  DIM  TMP* (MAX  N> 

3410  FOR  M  •  1  TO  MAX . N :  TMP»(M)  *  ACT* CM):  NEXT 
3420  ERASE  ACT*:  DIM  ACT*CMAX  N  +  10) 

3430  FOR  M  »  l  TO  MAX  M:  ACTS(M)  *  TMP  * ( M )  :  NEXT 
3440  MAX . N  -  MAX  N  ♦  10 

3430  ERASE  TMP* 

3440  ON  ERROR  GOTO  0 

3470  RETURN 

3480 

3490  *  _ 

3700 

3710  'this  rout  int  eoaputu  tha  tin*  from  a.  tima  in 

3720  minutai  of  a  waak  . . 

3730  HR  «  (ACT. SCHED .TIME  MOD  1440)\40 

3740  MIN  ■  (ACT. SCHED  TIME  MOD  1440)  MOD  60 

3730  T*  ■  MIDJCSTR* (HR) ,2) :  GOSUB  3790:  HR*  -  T* 

3740  T*  a  MID* (STR* (MIN) , 2 ) :  GOSUB  3790:  MIN*  •  T* 

3770  THIS. TIME*  ■  HR*  ♦  MIN* 

3780  RETURN 

3790  WHILE  LENCT* >  <  2 
3300  T*  a  "0"  ♦  T* 

3810  VEND 

3820  RETURN 

38  30  * _ 

3840 

3830  'this  routina  datarainas  tha  day  and  data  of  an 

3840  '  activity  from  wk . data,  wk  data*,  and  tha 

3870  '  activity  schadula  tima... 

3880  DAY  a  ACT.  SCHED  TIMEM440  :  THIS  .  DAY*  •  MI D*  (  DAY*  ,  DAY 
*3  ♦  1,3) 

3890  THIS. DATE  J  a  WK . DATE  ♦  DAY:  DAY  .  J  a  THIS  DATE  J  MOD 
1000 

3900  YEAR  -  VAL ( R I GHT* ( WK . DATE  *  , 2 >  >  :  IF  YEAR/4  a  YEAR\ 4  T 

HEN  L.YR  a  -1  ELSE  L.YR  -  0 

3910  MO  a  0:  NE XT . MO  1 ST . DAY  a  1 

3920  WHILE  ( DAY . J  >  NEXT . MO .  I  ST . DAY >  AND  (MO  (  12) 

3930  'sava  naw  'this  nont h ' ,  gat  naxt  month.. 

3940  THIS  MO . 1ST. DAY  a  NEXT  MO. 1ST  DAY 

3930  MO  a  MO  ♦  1 

3940  NEXT. MO. 1ST. DAY  a  VAL ( MI D * ( F I RST . DAY * , MO* 3  ♦ 

1,3)) 

3970  IF  (MO  ) a  2)  AND  L.YR  THEN  NEXT . MO . 1ST . DAY  a 

NEXT. MO  1ST  DAY  +  1 
3980  VEND 

3990  'whan  tha  day  falls  in  tha  following  yaar,  loop  is 

4000  tarminatad  by  mo  *  12,  thus. 

4010  IF  DAY . J  > ■  NEXT. MO  1ST. DAY  THEN  YEAR  a  YEAR  *  1 .  TH 

IS. DATE  a  DAY . J  -  NEXT . MO  1  ST . DAY  >  1  ELSE  THIS. DATE  »  DAY  J 
-  TH I S . MO . 1 
ST. DAY  ♦  l 

4020  THIS. DATE*  a  MI D* ( STR* ( TH I S . DATE ) , 2 )  ♦  "  "  ♦  MID*(MO 
NTH* , (MO-1 ) *3  *  1,3)  ♦  STR* ( YE AR ) 

4030  RETURN 

4040  ' _ 

4030 


***  CASE  *** 

moduli  dated  24  April  1983 


40  40 
4070 
4080 
4090 
4100 

41  10 
4120 
4130 
4140 
thir 


This  moduli  ineludis  subroutines  called  by  other 
modules  in  determining  the  ca.se  of  each 
activity  relative  to  the  week 


variables  rquired : 

PERIOD . ST. TIME  as 


time 


units 


an 


integer 


in  minutes  or  o 


4 1  SO 
4140 


<  resolution) 


PERIOD. OUR  as  an  integer  length  of  period 
INCR  as  an  integer  for  the  value  of  each  bit 


41  70 

4180 

4190 

O'  not 

4200 

4210 


avail 


START. TIME  as  values  for  the  activity 
END. TIME 

AVAIL!  as  a  bit  string  with  '1‘  available, 
AVAIL  as  a  control  code 

SET  as  a  control  code  to  set  the  time  'not  a 


vailable 

4220 

4230 

42  40 
4230 
4240 
4270 
4280 
4290 
4300 

43  10 

4320 
43  30 
4340  * 
4350  ‘ 
4340 
4370 
4380  ' 

4390  ' 

4400 
4410 
4420 
4430 
4440 
4450 
4440  ' 
4470  ' 
4480 
4490 
4500 
43  10  ' 
4520 
4530 
4540 
4550 
4340 


‘ returns: 

AVAIL  as  TRUE  if  time  is  available 
'  AVAIL!  updated  if  AVAIL  and  SET  both  TRUE 

I 

'subroutines  used. 

'  all  internal 

l 

COSUB  4520 
COSUB  4730 
RETURN 


-  This  routine  determines  the  case  of  activity 

start  (CASEl)  and  end  (CASE2)  relative  to 
the  period  start  and  end  . . 

CASEl  and  CASE2  equal  1  if  times  are  before 
'  the  period  starts,  2  if  during  the  period, 

or  3  if  after  the  period.  Thus  if  CASEl  is 
'  3  or  CASE2  is  1,  the  whole  activity  falls 

outside  the  period  in  question.  If  both 
CASEl  and  CASE2  are  2,  then  the  whole 
1  activity  is  within  the  period. 

CASES  has  a  value  of  1  if  the  whole 
activity  falls  on  a  single  byte,  2  if  on 
'  adjacent  bytes,  and  3  if  one  or  more  whole 

bytes  fall  between  the  start  and  end. 

START. BIT  ■  START. TI ME \ INCR 
START  BYTE  ■  START  BITV8  *  1 
END. BIT  -  (END  TIME- 1 ) \ INCR 
END. BYTE  -.END  BIT\8  ♦  1 

IF  START. TIME  >-  PERIOD . ST . TIME  THEN  CONDI  -  -1  ELSE 
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CONDI  »  0 

4570  IF  START. TIME  <  < P ER I OD . ST . T I ME  ♦  PERIOD. DUR)  THEN  C 

OND2  a  .1  ELSE  COND2  a  0 

4580  IF  CONDI  AND  COND2  THEN  CASE1  a  2  ELSE  IF  NOT  CONDI 

THEN  CASE  1  a  1  ELSE  IF  NOT  CQND2  THEN  CASE1  -  3 
4590  IF  END  TIME  >  PER  I OD . ST . TIME  THEN  COND3  a  -1  ELSE  CO 

ND3  a  0 

4800  IF  END. TIME  <a  (PERIOD. ST . TIME* PERIOD . DUR)  THEN  COND 

4  a  .1  ELSE  COND4  a  Q 

48  10  IF  COND 3  AND  COND4  THEN  CASE 2  a  2  ELSE  IF  NOT  COND 3 

THEN  CASE2  «  1  ELSE  IF  NOT  COND4  THEN  CASE2  a  3 

4820  IF  END. BYTE  a  START . BYTE  THEN  CASES  a  1 

4830  IF  END. BYTE  -  START  BYTE  a  1  THEN  CASE3  *  2 

4840  IF  END. BYTE  -  START . BYTE  >  1  THEN  CASE3  a  3 

4850  RETURN 

4880  '  _ 

48  70  ’ 

4880  This  routine  saltcts  the  proper  routine  (or 
4890  '  checking  or  setting  availability  based  on 

4700  '  the  case  defined  by  CASE1,  CASE2 ,  and  CASES 

4710  1 

4720  if  start  is  before  period... 

4730  IF  CASElal  AND  CASE2a2  THEN  ON  CASE3  COSUB  4880,4980 

,4980 

4740  '  if  start  and  end  are  during  period.  .  . 

4750  IF  CASE  1 a2  AND  CASE2a2  THEN  ON  CASE3  COSUB  5  1  10,5280 

,  5240 

4780  if  start  is  during  period  but  end  is  after  . 

4770  IF  CASE  1  a 2  AND  CASE2a3  THEN  ON  CASE3  COSUB  5480,55  90 

,5590 

4780  '  if  start  is  before  and  end  is  after  period 


4790  IF  CASE  1  a  1  AND  CASE2a3  THEN  FIRST. BYT- 1  :  LAST . BYTaLE 

N(AVAIL«):  GOSUB  5830 

4800  the  final  case  ends  before  or  starts  after  p 

eriod  .  . 

4810  IF  CASE  1  a 3  OR  CASE2al  THEN  PR INT" Ac t i v i t y  is  complet 

sly  outside  the  period..." 

4820  RETURN 

48  30  '  _ 


4840  ‘ 

4850  '  -  This  routine  is  used  when  END  BYTES  is  the 

4880  ’  first  byte  of  AVAILS  . 

4870  • 

4880  FIRST. BIT  USED  a  0.  LAST  BIT. USED  a  (END  BIT  MOD  8) 
4890  BYT . TO  CKS  a  LEFTS ( AVA I L S , 1 ) 

4900  COSUB  5850 

4910  IF  AVAIL  AND  SET  THEN  MI DS ( AVA I L S , l , 1 )  a  CHRS(ASC(BY 

T. TO. CKS)  AND  (NOT  MASK)) 

4920  RETURN 

4930  1  _ 

4940  1 


4950  -  This  routine  is  used  when  END  BYTE  points  to 


4  9  6  0 
4970 
4980 
4990 
3000 
3010 
3020 
3030 
3040 


and  byta 


FIRST. BYT  »  I:  LAST . BYT  -  END. BYTE- 1 
GOSUB  5730 

FIRST  BIT  USED  »  0:  LAST. BIT  USED  *  (END  BIT  MOD  8> 
BYT.TO.CK*  ■  MID* ( AVAIL* , END  BYTE , 1 > :  J  »  END . BYTE 
GOSUB  3830 

IF  AVAIL  AND  SET  THEN  GOSUB  397Q  ELSE  RETURN 

MID* (AVAIL* , END . BYTE , 1 )  *  CHR* ( ASC ( BYT . TO . CK* )  AND  ( 


BYTE- 1 


NOT  MASK) ) 
3030  RETURN 
5040  ■ 

307 

5080  '  ---  ' 

3090 
3100  1 

5110  BYT 

3120  MAS 

5130  FIR 

3  140  LAS' 

5  150  COS’ 

3160  IF 


-  This  routina  is  usad  (or  tha  singla  byta  ctsa 

whera  ona  byta  ineludas  both  start  and  and 


5110  BYT.TO.CX*  ■  MI D* ( AVAI L *, START . BYTE . 1 > 

3120  MASK  «  0 

5130  FIRST. BIT. USED  »  (START. BIT  MOD  8) 

5140  LAST. BIT . USED  -  (END. BIT  MOD  8> 

5150  COSUB  5850 

3140  IF  AVAIL  AND  SET  THEN  M I D * ( AVA I L * , START . BYTE , 1 ) 

R» ( ASC (BYT  TO  CK*)  AND  (NOT  MASK)) 

3170  RETURN 

518 

519 

5200  '  -  This  routina  is  usad  whan  ona  or  aora  bytas 

3210  '  saparata  tha  first  and  last  bytas  or  wh 

3220  '  thay  ara  adjacant. . . 

3230  1 

3240  FIRST  BYT  -  START . BYTE ♦ l :  LAST. BYT  -  END. BYTE- 1 
3230  GOSUB  5730 

3240  IF  NOT  AVAIL  THEN  RETURN 

5270  CASE3  ■  2  antars  hara. 

5280  FIRST. BIT. USED  «  (START. BIT  MOD  8):  LAST  BIT  US: 
7 

3290  BYT.TO.CK*  -  MI D* ( AVAI L *, START . BYTE , 1 > 

5300  GOSUB  5850 

3310  IF  AVAIL  AND  SET  THEN  MASK . ST-MASK :  BYT  ST* -BYT 

K*  ELSE  IF  NOT  AVAIL  THEN  RETURN 

3320  FIRST. BIT. USED  >  0:  LAST. BIT  USED  »  ( END  BIT  MOI 
3330  BYT.TO.CK*  •  MID* ( AVAIL* , END . BYTE , 1 > .  J  «  ENDS' 
5340  GOSUB  5830 

5330  IF  NOT  AVAIL  THEN  RETURN 

3340  IF  ( CASES*  3 )  AND  (AVAIL  AND  SET)  THEN  GOSUB  3  9  7 

3370  IF  NOT( AVAIL  AND  SET)  THEN  RETURN 

3380  MID*  (AVAIL*  ,  START  BYTE  ,  1  )  ■  CHR * ( ASC ( BYT . ST* )  A1 


(START. BIT  MOD 
( END . BIT  MOD  8  > 


-  Thi*  routina 

saparata 


is  usad  whan  ona  or  aora  bytas 
tha  first  and  last  bytas  or  whan 


thay  ara  adjacant... 

FIRST  BYT  -  START. BYTE* l :  LAST. BYT  • 
GOSUB  5730 

IF  NOT  AVAIL  THEN  RETURN 

CASE3  ■  2  antars  hara.  . 
FIRST. BIT. USED  «  (START. BIT  MOD  8):  I 

BYT  TO.CK*  -  MID* (AVAIL* , START. BYTE , ! 
GOSUB  3850 

IF  AVAIL  AND  SET  THEN  MASK . ST-MASK :  I 

IF  NOT  AVAIL  THEN  RETURN 

FIRST. BIT. USED  >  0:  LAST  BIT. USED  »  < 


BYTE-1 


LAST  BIT  USED  * 


BYT  ST* -BYT. TO 


»  ( END . BIT  MOD 


BYT.TO.CK*  »  MID* (AVAIL* . END . BYTE , l > :  J  «  END . BYT! 
GOSUB  5830 

IF  NOT  AVAIL  THEN  RETURN 

IF  (CASE3-3)  AND  (AVAIL  AND  SET)  THEN  GOSUB  3970 
IF  NOT( AVAIL  AND  SET)  THEN  RETURN 

MID* (AVAIL* , START  BYTE , 1 )  ■  CHR * ( ASC ( BYT  ST* )  AND 


BYTE 


3970 


OT  MASK  ST) ) 


5390  MID 
NOT  MASK) ) 
3400  RETURN 


MID* ( AVAIL* , END . BYTE , 1 )  ■  CHR* ( ASC ( BYT . TO . CK* ) 


■  This  routina  is  usad  whan  tha  last  byta  *in  tha 
string  is  tha  only  byta  to  ba  chackad. 


-  This  routins  is  ustd  whin  the  Activity  tnds 

After  the  period  And  the  first  byte  is  one 
or  more  bytes  from  the  end  of  AVAILS.  The 
‘  1 Ast  two  CAses  of  CASE3  Are  both  checked  by 

'  this  routine... 

FIRST. BIT. USED  ■  <  START .BIT  MOD  8):  LAST  BIT. USED  « 


BYT. TO. CKS  a  MID* (AVAILS , START  BYTE , l ) 

COSUB  3850 

FIRST. BYT  a  START . BYTE +1 :  LAST . BYT  •  LEN(AVAILS) 
COSUB  5730 

IF  AVAIL  AND  SET  THEN  COSUB 
MID* <AVAI LS , START . BYTE , i >  - 
MASK)  ) 


5970  ELSE  RETURN 
CHRS ( ASC ( BYT . TO  CKS  > 


AND 


RETURN 


5  4  5  0  1 

5460  BYT. TO. CKS  «  MI DS ( AVAI L S , START  BYTE , 1 ) 

3470  FIRST. BIT . USED  *  ( START  BIT  MOD  8):  LAST  BIT. USED  « 

< PERIOD  END . BIT  MOD  8) 

5480  COSUB  5850 

5490  IF  AVAIL  AND  SET  THEN  MI D S ( AV A I L S , START  BYTE , 1 )  «  CH 
RS ( ASC  <  BYT . TO . CKS  >  AND  (NOT  MASK)) 

3500  RETURN 

3510  1  _ 

3520  * 

5530  ' 

5540 

55  30 

5560 
5570 
5580  1 

3590 
7 

5600 

56  10 
5620 
5630 
5640 
5  650 

(NOT 
5660 
3670 
5680 
5690 
5700 
3710 
5720 

57  30 
3740 
5750 
ED«0 
57  60 
3770 
37  80 

57  90 
5800 

58  10 
5820 
5830 
5840 
5850 
58  60 
5870 

58  80 
•  0 
5890 
5900 

59  10 
3920 


■  -  This  routine  is  used  by  the  routines  above  when 
whole  bytes  are  being  checked  for 
availability.  .  . 


FOR  J 


FIRST. BYT  TO  LAST. BYT 


BYT. TO. CKS  »  MID* ( AVAILS ,J , 1 ) 

IF  BYT. TO. CKS  (>  CHRS(253>  THEN  FIRST. BIT  US 
LAST. BIT. USED-7 :  COSUB  5850 

IF  'NOT  AVAIL  THEN  RETURN 

NEXT 

RETURN 


'  -  This  routine  is  called  by  above  routines  to 

'  check  availability  within  partial  bytes  of 

AVAILS  .  .  . 

I 

MASK  «  0 

FOR  K  -  FIRST. BIT. USED  TO  LAST . B IT . USED 
MASK  ■  MASK  «•  2‘K 

IF  (ASC (BYT. TO . CKS >  AND  2*K)  »  0  THEN  AVAIL 

RETURN 

NEXT 

RETURN 


This  routine  is  called  when  a  whole  byte  is  to 


3940  b«  a*  t  to  NOT  AVAILABLE  atata,  both  AVAIL 

3950  and  SET  art  TRUE  . 

39  40  1 

3970  FOR  J  >  FIRST. BYT  TO  LAST . BYT 

3980  MI  Dt  <  AVA I  L  *  ,  J  ,  1  >  -  CHR»(0> 

5990  NEXT 

4000  RETURN 

4010  *  _ 
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